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Two 

Distinguished 
Products for 
PDP-11... 

And now VAX 
Users 


INTAC" 

MAPS" 


Interactive 

Data Base Management 

INTAC is a new concept for data 
storage and retrieval that features 
an easy-to-use question and 
answer format, built-in edit rules, 
multi-key ISAM data access, inter¬ 
active inquiry and a unique report 
generator. 


Financial 

Modeling 

MAPS, recognized worldwide for 
over five years as a leader In finan¬ 
cial modeling and reporting, is 
used to construct budgets, finan¬ 
cial forecasts, consolidations and 
“what If’’ analyses. 


Ross Systems, with over seven years of 
proven capability, now offers these two 
products to current and prospective 
PDP-11 and VAX users. INTAC and 
MAPS enable business managers to 
produce Instant reports themselves, and 
relieve DP managers from the pressures 
of special requests. 

Ross Systems offers these management 
tools on our timesharing service, for 
license on existing computers and as 
part of a complete. In-house timesharing 
Installation. 


Call us collect for more Information. 



ross systems 

c o r p o r s r e it 


1900 Embarcadero Road, Suite 208, Palo Alto, CA 94303 


(415) 856-1100 • Other offices in San Francisco and Los Angeles 
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When low cost and reliability 
are your print-out needs. 

Southern Systems has the answer. 


Call SSI for versatile, simple-to- 
operate 200, 300 and 600 I pm 
printer systems. 

Economical purchase price is 
just the start of your savings with 
SSI's 200 Ipm matrix or 300 and 
600 Ipm band printer systems. 

The 300 and 600 Ipm bands, 
the lowest cost-of-ownership 
printers in their performance 
range, give you easy-to-change 
character font bands, clean 
cassette ribbons, quiet operation 
and up to five clear copies. 

The 200 Ipm matrix, at half 
the price of the 300 Ipm band, gives you two-thirds the performance, with 
128 characters in condensed, expanded or standard print and six clear copies. 

These versatile, economical printer systems are unbelievably maintenance- 
free. Compatible with DEC, Data General, HP, Perkin-Elmer and most 
other computers. Parallel or serial interfacing. 30-day delivery. Nationwide 
full service. Unmatched printer and interface expertise. 

Call SSI, the leader in add-on printer system technology, for low cost, 
high performance printer systems ... at 200, 300 or 600 lines per minute. 


Southern Systems 

The Printer System Problem-Solvers 

2841 Cypress Creek Road 
Fort Lauderdale, Florida 33309 
(305) 979-1000; (800) 327-5602 
Telex 522135 



I Please send information about: 

j DThe 200 Ipm matrix; and/or the 0300 or 0600 Ipm band. 

I I'd also like to know about your high speed printers: 

I 0900 Ipm band . . . Our newest high-performance product. 

I □300/600/900 Ipm drum. 01500 Ipm charaband. 
j 0600, 1000 or 1200 Ipm ChainTrain. 

I OParallel GSerial (Synchronous or asynchronous). 

I My needs are: 

■ □ Immediate 03-6 months DFor Information Only. 

I My computer type is_ 

1 Name_ 

2 Title_ 

■ Company_ 

I Address_ 

I City_State_Zip- 

I Telephone_ 

























Everyday we find the pressure to 
produce is being pushed on the pro¬ 
gramming staffs around the world. 
Programmer productivity is the name 
of the game. 

Application Development is a time 
consuming process, and without the 
proper tools, even the best program¬ 
mers can get lost in the shadows. 

Amcor has the solution for the produc¬ 


tivity problem. . .AM BASE, our revo¬ 
lutionary Application Development 
System and DBMS. AMBASE is 
designed to work with DEC PDP-11 
computers utilizing the RSTS/E 
operating system. 

AMBASE is helping technical staffs 
worldwide to improve their produc¬ 
tivity from 100-900%. Jobs that took 
10 days are being completed in 1 
day with AMBASE. 


Please forward information on the following systems: 


□ AMBASE 

□ Accounts Receivable 

□ Accounts Payable 

□ GUFinancial Mgt. (AMFACS) 

□ Payroll 

□ Order Processing 

□ Inventory Control 

I 1900 PLANTSIDE DRIVE □ Sales Analysis 

I LOUISVILLE, KY. 40299 

} 502/491-9820 

I_ 



Name_ 

Company_ 

Address_ 

City_ 

Telephone _ 

Computer Type. 


So don't get lost in the shadows, let 
AMBASE put you out in front. 

For more information on AMBASE, 
or any of AMCOR'S complete line of 
data base oriented applications, give 
us a call, or use the coupon provided 
below. 

Software for DEC 
RSTS/E Systems 

-j 


Operating System 


_J 

•DEC IS a TRADEMARK of Digital Equipment Corp 
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From the editors... 

In case you haven’t noticed, the RSTS PRO 
has created a thriving new marketplace for 
software. This was one of our original 
goals, six issues ago. I would like to single 
out two of the many products that I have 
personally bought and paid for. The first is 
OMSI Sort Version 1.6. I have used OMSl 
sort since its original release as a macro 
replacement for SQWIK and MQWIK, the 
old DEC type-1 header sort. It was the best 
software buy 1 ever made, yielding stagger¬ 
ing reductions in run time. Version 1.6 con¬ 
tains the final additions to a fine product 
— the macro rendition of XQWIK and 
OQWIK, the extract and reordering por¬ 
tions of the sort. Amazingly fast and truly 
flexible. Bravo! 

The second entrant to my ‘Hall of 
Fame’ is a package from Software Tech¬ 
niques called DSKIT. 1 ordered it as soon as I 
saw the proofs of their ad in the last issue. 
To make a long story short: last week, 
using DSKIT. I created 130 accounts and 
fully extended their centered UFD’s in 
three minutes and forty seconds (a job that 
used to take four to eight hours). I then 
copied the full contents of a 300 MB RM05 
equivalent to this new well structured’ 
disk in 45 minutes, optimizing clustersize 
and contiguity on the process. I (for once) 
was speechless. Software Techniques 
delivered excellent response to the few 
minor problems I unearthed in the very 
short learning process. The documentation 
is excellent. In short, this package is the 
‘final solution’ to structured disks, 
eliminating all of the time and complexity 
and reducing the job to one of the simplic¬ 
ity of a SAVRES. 

Dave Mallery 

Love at First Sight 

I’m In LOVE. Head-over-heels in love. I 
am overcome when I see the twinkle in the 
darkness, but even in the light I am over¬ 
joyed when I come into the room. Our rela¬ 
tionship has been short, but I am looking 
forward to many years of happiness. I look 
forward to that time of day when I can be 
alone, just the two of us talking to each 
other. 

Now, before I really get into trouble 
with Helen, my spouse of some years, let 
me explain that my New Love is a rather In¬ 
animate (? sometimes I wonder ?) Lovely, 
old. well cared for. rugged. PDP 11 /40 
that we plan to make over into a New. Well 
Cared for. New peripheraled. Speeded up. 
more functional. Great RSTS Machine. That 
PDP 11 /40 was built in 1973 and even has 
the old style BA-11 Box and real (!) lights 
and switches — looks like an 11 /70 if you 


don’t look too closely. No light show is evi¬ 
dent. .. no null job?.. . does any one 
know why? We don’t. 

This 11 /40 is a real story; how It was 
bought (and others rejected), how it was 
delivered, the new memory (256KB on a 
single board from Data Systems Services), 
the new disk (160MB Winchester that 
looks like two RM03’s from System In¬ 
dustries), the new Tape (800/1600 of 
course) also from DSS. the new Multiplexer 
(A Dmax from Able), the new line printer 
(Southern Systems), the new cabinet 
(Surplus RCA), and others good and bad 
things. We ll tell the story in the the next 
few Issues, don’t miss it. 

The RDC has Invited us to visit and see 
how they do their remote diagnosis. That 
story should be ready for the next issue. 

Our VAX-SCENE has been well re¬ 
ceived and It is significantly expanded in 
this issue and will continue to get the at¬ 
tention it deserves. Lets hear it from all of 
the VAX people out there — your doing 
some neat things, tell us about them. 

If you haven’t seen the NEW RSTS 
brochure, ask your salesperson for one. 
This make RSTS seem like the up and com¬ 
ing product it is! Be sure to look closely at 
the SYSTAT...What are all those foreign(!) 
Run-Time systems? I had to go to Canada 
(see the Canadian DECUS article) to get 
one. I haven't seen a salesperson in over a 
year. While you have the DEC rep on the 
phone ask to see the RSTS. VAX and 
RSTS/VAX performance data that is 
available from the performance group in 
Merrimack; let us know if they can’t or 
won’t get it for you — it’s got some sur¬ 
prises. 

We re well on our way into our second 
year and it is more: more work, more fun. 
more people, more magazine. RSTS is a 
growing product and were going to grow 
along with it — keep giving us the help we 
need: more articles, more letters, more of 
you—tell a friend about RSTS and about 
the RSTS PROFESSIONAL. 

Carl Marbach 
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DEC PDP 11 

FAMILY OF MINI-SYSTEMS 


^ Hamilton Rentals 

One Penn Plaza, New Yorlc 10119 


212 - 695-1936 

TOLL FREE 800-223-2430 


Software Packages Include: 


PDP 11/23 


IMMEDIATE DELIVERY 
FROM STOCK 

ALL RENTALS INCLUDE 
MAINTENANCE. 
PURCHASE OPTION 
LEASE PLAN AVAILABLE 


LONDON 


PARIS 


DUSSELDORF 


TORONTO/CALGARY 


□ Word Processing 

□ Inventory Control 

□ Accounting Packages 

□ Information Storage 
and Retrieval 


□ Financial Reports 

□ Finite Stress Analysis 

□ Micro-Processor 
Development 

□ Commercial Graphics 
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LETTERS to the RSTS Pro... 


Dear Dave and Carl, 

In your recent report on the U.K. RSTS SIG 
Meeting you said that it was attended by people 
“from all over the U.K.”. 

There were also several participants from Ire¬ 
land — RSTS is alive and well over here too. 

Keep up the good work. Kind regards. 

Yours sincerely, 
David A. Reynolds 
Peat Marwick Mitchell - Dublin 

Dear Sir: 

In your editorial “Go VAX Young Man!” 
[RSTS Professional, Vol. 2, #3], you mention 
that a product which allows the PDP 11 / 70 clock 
rate to be raised has appeared. I am interested in 
such a product, but have been unable to find any 
information on it. 

Would you please send me the names and 
addresses of those who are marketing this 
product. 

Yours very truly, 
N. McRae 
Computer Facilities Analyst 
Hardy Associates (1978) Ltd., Canada 
Dear Mr. Mallery: 

Your article indicated that there is a “fast 
clock” available for the DEC PDP 11/70. 

I would appreciate it if you could tell me the 
manufacturer so that we can evaluate it as a 
means to increase our capacity. 

H.J. Mainwaring 
Staff Engineer, Computer Systems 
Cadillac Motor Car Division 
You can obtain a modified TIG board for the 70 
from: TIG Board, Nassau Systems, P.O. Box 
19329, Cincinnati, OH 45219. 

This is currently being tested by a major 70 user 
and the results should be in soon. 

Dear Sirs, 

I have been managing a PDPl 1/55 time shar¬ 
ing system running under RSTS for less than a 
year, and when I started it looked as if the system 
would need to be enhanced in the very near future 
as the response times to the users was on occa¬ 
sions completely unacceptable. There are about 
120 accounts on our system containing over 9000 
files and although some effort is being made to 
reduce these numbers, it has been difficult to do 
this since the number of people using the system 
is large, and the job mix is very varied. 

It was with great interest, therefore, that I 
attended the seminar at the Festival Hall, and I 
returned full of ideas and enthusiasm. Right, I 
would rebuild the system disk with nice contigu¬ 
ous directories. Then the trouble started. Did I 
have to run REACT to generate 124 accounts. 
No need. System functions are available to write 
a simple program to establish these the same as 
the existing disk. Now it is a bit of a fiddle to get 
the right size of file to fill the lower disk. This is 
not too difficult, however, so it is done and I start 
opening null files to fill up all the directories. 
About three in the morining I give up. It’s only 
half done and it will take all night. I realize that 
since our system requires new accounts to be 
installed fairly frequently that it is not a once only 
job. 

Thinking again I realize that a UFD fully 
extended with one null file is a fairly simple struc¬ 
ture so why not build all the UFDs into a large 
contiguous file and patch the DCN of each into 
the MFD. The file into which the directories are 
built is in [1,0] and it may be removed after the 


build by changing the link. This does not clear the 
SATT so that the directories are protected. Sur¬ 
prisingly, apart from a minor bug in the align¬ 
ment of clustersize 8 directories (the DCNs must 
be odd numbers) this worked first time and a disk 
contianing all the accounts with seven cluster 
directories was built from an initialized disk in 
about 12 minutes. 

Placed files were then transferred using PIP 
followed by a wildcard PIP of everything else. 
Unfortunately, since our system uses new files 
first all the directories were reversed, and a time 
consuming REORDR was required. 

The next time the disk was copied the new disk 
was initialized old files first, and the program 
INVERT was run to change it after the copy was 
complete. This saves the REORDR time and 
builds a better directory. Since the control file 
started the system after the copy to allow the copy 
to run unattended at night, the program 
INVERT must tell the monitor that the change 
has been made because the status bit on the disk is 
only looked at during the mount operation. 

The improvement in system performance was 
enormous. Not only the directories but all the 
other files on the new disk were physically contig¬ 
uous (or nearly so) and the disk access was 
improved by about 50%. The time for the whole 
operation was less than the BACKUP that we 
had used weekly before, and the backup disk was 
fully runnable in the event of a disaster. I subse¬ 
quently found that the retrieval of a single file 
from the old disk (using PIP) became a trivial 
operation as opposed to getting a file from a 
BACKUP set. 

I am enclosing a description of the process and 
listings of the programs involved for your infor¬ 
mation and possible publication as I think it may 
be useful to other users with similar problems. 

Yours faithfully, 
Michael J.D. Mowat, B.Sc., M.B.C.S. 
Dept, of Agriculture and Fisheries for Scotland 
P.S. Your articles on directories are very useful. 
What about something on system table contents. 
We also feel Michael’s article may be helpful to 
other users. See ’’All Things BRIGHT and Beau¬ 
tiful”, this issue. 

Editors, 

I have been a subscriber to your magazine for 
over a year and have found much enjoyment 
from reading the RSTS Professional. It has 
proven to be an invaluable source of information 
on the RSTS Operating System and TECO. 

Sincerely, 

John J. Walczy, Royal Oak, MI 
Dear Mrs. Noakes, 

Following your request for contributions to 
the RSTS Professional, please find enclosed list¬ 
ings and documentation for half a dozen user 
subroutines callable from Basic-Plus-2. 

I hope someone may be able to make use of 
them — either they provide functions not availa¬ 
ble or are very much faster than those provided. 
The execution time given is for an I1/34A 
processor. 

May I add my thanks and praise for last 
month’s DECUS Commercial SIG meeting 
which I found interesting and useful [that was the 
“Dave & Carl Show” at Festival Hall]. 

Yours sincerely, 
M. A. Jackson, Nielsen Business Services 
Readers will find Mr. Jackson’s subroutines in 
this issue. ’’POP/11 — UTILITIES.” 


Dear RSTS Professional: 

I would like to take a moment to thank the 
people who have written the excellent articles for 
the “RSTS Pro”. I’m sure their efforts have been 
of great use to many people. I would like to 
especially thank Scott Banks, Steve Davis, Steve 
Edwards and your own Dave Mallery and Carl 
Marbach. 

1 feel we in the RSTS community have a 
responsibility to provide our peers with this type 
of information and I applaude those who have 
already done so. For my own part I am starting a 
year long series of articles on monitor internals. I 
haven’t seen anybody do anything like this yet so 
I hope it will be helpful. A copy of the first article 
is enclosed. 

Sincerely, 
Mike Mayfield 
Northwest Digital Software 
We all thank you, Mike, for your appreciation. 
We accept your offer for a series of articles on 
monitor internals, the first of which appears in 
this issue. 

Readers: Mr. Mayfield’s article is titled, 
’’RSTS/E Monitor Internals, Part 1." 

DO YOU REMEMBER THIS? 

(Photo contest!?), RSTS Professional Vol. 2, U3, 
p.75. • STILL!) 

Photo contests appear in the RSTS PROFES¬ 
SIONAL occasionally and readers have until 
publication of the next issue to submit their 
answers. We may, from time to time, limit the 
number of correct answers eligible to receive 
prizes. 

Because no one has gotten this right yet, we’ll 
save the answer ’til the next issue. Following are 
the latest silly attempts. 

“Tampa Elec. Co. truck.” 

Jeffrey Neu, New York, NY 

Wrong! 

Boys and Girls, 

(1) Your mag is getting better and more infor¬ 
mative with each issue. Keep up the goodies. 

(2) The unresolved TECO “what is it” is a 
utility-company-type “Cherry Picker”, com¬ 
monly found somewhere near the top of a pole 
(lower case, no creative ethnic slur intended). 

(3) I’ve enclosed my mailing label. Counting 
issues, I think my subscription must be about to 
expire but I need further clues. 

Bye/F, Douglas P. Herman 
Herman Management Company, Inc. 

El Cajon, CA 92021 

(1) Thank you. (However, fattery won’t get you 
a T-shirt - usually!). 

(2) How TECO. Why TECO remains unresolved. 

(3) A clue follows. 

(4) 

Dave, Two of them, even (whatever they are...) 


Uco 



—Bill, Merrimack, N.H. 


Good Grief! They’re Even Contemptibly Omni¬ 
present. 

... continued on page 95 
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VAXination 

for DEC" Users. 


System Industries disk storage. For immunity 
against high prices, slow delivery and limited choice. If your VAX-11/780"^ is wait¬ 
ing for RPOX/RMOX drives, you stand to lose a lot more than valuable time. You stand to 
lose on price/performance, too. 

We can help. WeYe System Industries, the world's largest independent supplier of com¬ 
plete disk systems for DEC users. 

Add on or trade out, we'll save you big money. WeVe been saving DEC users 
big money on large-capacity disk storage for more than 10 years. And we've made it easy. 

We can simply add to your present disk storage. Or we can trade your RPOX/RMOX 
drive(s) for one of our superior disk systems. Whichever way you choose, you can count on 
100% software transparency. And substantial dollars saved. 

Get a wide choice, including Winchester-SMD combos. Shared data base 
with multiple CPUs . . . nonstop operation featuring multiple drives . . . one of our many 
field-proven system configurations is ideal for your VAX disk storage needs. 

We even offer Winchester-SMD combos that pack 900 Mbytes into the same floor space 
you may be using for 300 Mbytes (RM04/05). By trading your RM04/05 for our Winchester- 
SMD combo, you can net an additional 600 Mbytes. And pay no more than the cost of an 
RM04/05 from DEC. 


Worldwide service and 30-day delivery. We've built our entire business 
around fast, effective service. Beginning with responsive delivery—30 days ARC—and 
following with customized service con¬ 
tracts, we provide the support to get your j IMMUNIZATION REQUEST 
system up fast. And keep it running. 

So why wait for DEC. Take the 
System Industries VAXination today. It's 
a sure cure for slow delivery and poor 
price/performance. For de¬ 
tails, contact the sales 
office nearest you. Or 
use the coupon. 

*DEC and VAX-11/780 are 
trademarks of Digital 
Equipment Corporation. 


Please send details, including medical case histories, on 
how your disk storage systems can provide immunity 
against: □ slow delivery □ high prices □ limited choice 

Name_ 


ext_ 



SystemJ^/lndustries 

525 Oakmead Parkway, P.O. Box 425 
Sunnyvale, CA 94086 


SystemJ^^dustries 


United States: 525 Oakmead Parkway, P.O. Box 425, Sunnyvale, CA 94086, (408) 732-1650, Telex 346-459. 

Europe: System Industries (Europe), System House, Guildford Road, Woking, Surrey, GU22 7QQ, England, (048 62) 5077, Telex 859124. 
California (714) 754-6555, (213) 557-0384; Colorado (303) 741-3502; Georgia (404) 955-2252; Illinois (312) 948-9330; Massachusetts (617) 695-4022; 

New Jersey (201) 839-8650; New York (516) 482-6082; New York Metro (212) 953-0315; Ohio (513) 771-0075, (513) 874-5503; 

Texas (713) 497-7224; Washington, D.C. (703) 734-9700; West Germany (06102) 5464/5; Sweden 08-63 62 74 
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Segmenting BASIC-PLUS-2 Applications 

By Al Cini, Computer Methods Corporation 


This is first in a series of articles on analysis and design of 
BASIC-PLUS-2 Applications. 


INTRODUCTION 

The advantages of a "modular” (many parts) over a 
"monolithic" (all-one-piece) software system are, these 
days, a matter of conventional wisdom. Most of us 
somehow know we write modular programs, but few of us 
stop to reflect on how or why we do. 

Modular software system concepts are adapted from 
mechanical and electronic engineering notions, whose 
practitioners learned a long time ago how expensive "one 
big thing” can be to build, repair, and modify. In fact, while 
large-scale integration gets the credit for the third genera¬ 
tion of computers, its the shrewd packaging of these chips 
into functionally independent components, and the 
creative assembly of these components into ever- 
expanding variety of processors and peripherals, that have 
made computing the boom industry it is. 

it s largely the same in software. Functionally indepen¬ 
dent modules allow us to work separately on different 
elements of a project, with confidence that these concep¬ 
tual "parts" will work properly together when ultimately 
assembled. Throughout all of engineering, a complete and 
cohesive design and faithful adherence to its rules during 
implementation go a long way toward taking the worry 
out of laying that last brick, soldering that last chip, and 
taskbuilding that last program. Having to tear up a routine 
because it doesn’t “fit" into a system isn't any less ex¬ 
asperating than smoking a printed circuit board in a poorly 
designed backplane, or cracking the block of an expensive 
test engine—anticipating the connections, strains, and 
pressures among the parts assures the correct integration 
of the whole, and avoids costly trips back to the drawing 
board. 


UNDERSTANDING MODULES AND MODULARITY 

In programming, a module is a group of program 
statements with the following characteristics (Myers, p. 11): 

1. The statements are contiguous (i.e., appear 
together in the program listing). 

2. The statements are bounded by identifiable 
delimiters (such as SUB/SUBEND, DEF/FNEND 
statements: note that in the case of GOSUB, 


these boundaries can be very vague). 

3. The statements are collectively referenced by a 
name (or statement number). 

4. The statements can be referenced, by the 
module name, from any other part of the 
program (a recursive module can even call itself). 

The term "module ” usually evokes thoughts of ex¬ 
ternal subprograms (PL/1 procedures. FORTRAN 
subroutines), but its broad definition includes internally 
contained code sections (COBOL paragraphs, BASIC- 
PLUS functions and GOSUB-type subroutines) as well as 
complete concurrently or serially executed programs. 
Logically, software modules are the realization of our 
ability to analyze a big problem into manageable parts. 
In practical terms, software modules determine the 
feasibility of our work: we arrange them to promote 
system reliability, simplify maintenance delegate coding 
responsibility, and optimize memory utilization. 


DETERMINANTS OF “GOOD ” SOFTWARE MODULES 

Before we go any further. I’d like to apologize for 
the inevitable use of the word ‘ structure" in the text 
which follows. To say that ’’structure" in our business is 
an overworked word is to say that France is a place 
where a lot of French people live. Introduced formally 
during the late sixties, "structure" as it modified "pro¬ 
gramming ” identified a coding discipline in which pro¬ 
cedural programming languages (RPG isn’t one of these: 
COBOL. BASIC, and FORTRAN are) could be organized in¬ 
to programs using combinations of three fundamental 
control mechanisms: sequence (one statement after 
another), selection (IF-THEN-ELSE), and iteration (DO- 
UNTIL, WHILE-NEXT). Structured programming stirred 
up some pseudo-controversy (GO TO statements, as it 
happens, are not included in the basic control devices), 
got lots of trade press attention, and spawned a host of 
“structured ” disciplines as well as whole libraries of 
pamphlets and books on each. (A discussion of struc¬ 
tured BASIC-PLUS and BASIC-PLUS-2 programs can be 
found in RP vol. 1 no. 1). "Structure" has become an in¬ 
dustry buzzword which raises hackles, provokes debate, 
and unfortunately has come to have little useful meaning. 



This message is for Managers, Project 
Leaders, and Programming 
Supervisors who just know 
there has to be 
a better way! 



..CAN WE 
INTEREST 
YOU IN A 
NEW 
PROGRAM 
DEVELOPMENT 
CYCLE? 


BASIC-PLUS(-2) SOFTWARE ENGINEERING STRATEGIES 
A 5-day training program conducted at your site — detailing analysis, design and programming 
methods aimed at productivity-minded software engineering professionals. Costs less for a group 
of as few as five students than comparable off-site education. Study these highlights from the 
course syllabus: 

• Understanding reliability as a design objective. 

• Structured programming. 

• BASIC-PLUS(-2) language specifics. 

• Designing “from the top.” 

• Introduction to data flow analysis. 

• Hierarchy analysis. 


Transform analysis. 

Transaction analysis. 

Data base design techniques for RMS files. 
“Relational” RMS implementation. 

Elements of a RSTS software project. 
BASIC-PLUS-2 program segmentation. 



COMPUTER 

METHODS 

CORPORATION 

SKILLS DEVELOPMENT PROGRAM 
P.O. BOX 592 

MOORESTOWN, NEW JERSEY 08057 
609/778-8440 


COMPUTER 

METHODS 

CORPORATION 

I want to learn more. 

Name _ 

Title/Company_ 


SKILLS DEVELOPMENT PROGRAM 

P.O. BOX 592, MOORESTOWN, N.J. 08057 

6091778-8440 


□ Send information 
on your off-site 
training calendar. 


Phone 


□ Have someone call 


Address 


) area code 


I’m particularly interested in these training areas: 

IN A HURRY? 

- Give us a call at 

(609) 778-8400 


I 
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For our purposes, we can define "structure” along the 
lines of its non-DP usage: a structure is a complex entity 
consisting of discrete but interrelated parts. The parts can 
be isolated and examined independently and. frequently, 
are themselves structures of smaller parts. The smallest 
possible parts in programming are sequences, which may 
appear within selection or iteration control mechanisms. 
Modules are composed of such elements, and combine with 
other modules to make programs and systems. 

The “goodness" of a module can be evaluated along 
two dimensions (after Stevens et. al.): cohesion and 
coupling (figure 1). 



FIGURE 1. Dimensions of Module Strength 


Cohesion relates to the strength of the relationship 
among the elements which comprise a module with 
respect to the function a module performs. A highly 
cohesive module is one in which the elements work 
together to contribute to the execution of a specific func¬ 
tion: an incohesive module is one in which the elements are 
assembled at random. As you might imagine, there are 
strata of modular cohesiveness along the continuum: 

1. Coincidental. When there is no functional rela¬ 
tionship among the elements in a module, we can 
say that the module is coincidentally cohesive. 
FORTRAN or BASIC-PLUS-2 programs which are 
too large to fit in memory can sometimes be 
"hacked” into overlays by randomly assigning 
program parts to subroutines; such subroutines 
are coincidentally cohesive modules. 

2. Logical. Modules whose components are similar 
with respect to the work they do. but which do not 
contribute to the execution of a specific function, 
are logically cohesive. For example, including all 
READ statements in a READ subroutine, or 
building a subroutine which edits all social security, 
phone, and zip code numbers, are instances of 
logical modularity. "ON ERROR GO TO 19000" 
essentially invokes a logical module whose job is to 
“handle all errors." 

3. Temporal. Like logically bound modules, tempor¬ 


ally bound modules consist of elements which 
perform similar services. In addition, however, 
such elements in temporally cohesive modules are 
related by the time when their services are called 
for within a program. Housekeeping procedures 
like “initialization”, "termination”, and "clean-up" 
routines are examples of temporally cohesive 
modules. 

4. Functional. A functionally cohesive module is one 
in which all constituent elements contribute to the 
execution of a single function. The function, 
further, is keyed to an operation within the overall 
application; it is not a computer function (read, or 
write), but an application function (accept 
telephone number, compute overtime pay). 
Functional cohesion is the strongest form of 
intramodular relationship. 


In discussing functional modules, analogies with 
mathematical functions are frequently drawn. In 
mathematics. "Y = F(X)" represents a mapping of a domain 
of parametric inputs (X) onto a range of outputs (Y) ac¬ 
cording to a set of transformation rules (F). Likewise, a 
computer system transforms a set of input data into a re¬ 
quired set of output data via a precisely defined series of 
procedures. A functional module is one which performs one 
specific function against a set of input data, producing a 
precisely determined set of output data. 

Coupling describes the devices by which a calling pro¬ 
gram communicates with a called module. In general, low 
coupling—in which the connection is minimal and 
isolated—is better than high coupling—in which the con¬ 
nection is complicated and diffuse. 

The discrete argument list (such as that between a 
calling program and a separately compiled FORTRAN or 
BASIC-PLUS-2 subprogram) represents the lowest form of 
coupling mechanism, because it provides a simple interface 
between program components which is clearly iden¬ 
tifiable in the listings. A functional module which com¬ 
municates via an argument list can be removed from a 
system and tested independently without any special con¬ 
sideration. 

Named COMMON areas (available in FORTRAN and 
BASIC-PLUS-2 environments) offer a more complicated in¬ 
terface (the relationship between a COM or MAP and its 
host prog ram/cal led subprograms is not clear in the 
listings), but implementation problems like limits on the 
size of argument lists make them necessary. 

Blank COMMON areas are treacherously easy ways of 
hooking two programs together in a hurry, but extremely 
complicated to sort out during maintenance. They should 
be avoided. 

Data reference coupling—when a module directly 
references a data element within its calling program 
without going through the argument list—is the only way 
to connect a calling BP2 program with an internal function 
or GOSUB subroutine (in DEF/FNEND. the argument list, 
which is read-only within the function, is of limited value). 
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In this case, a "conceptual" list of data items passed be¬ 
tween cailer and called must be kept in the programmer's 
head and documented in comments, since it doesn't appear 
in the listing. 

Code coupling—when a module executes statements 
in its caller or vice-versa except through the normal 
call/return devices—is the highest form of coupling and 
the source of the worst kinds of maintenance headaches. 
GOSUB subroutines and COBOL paragraphs chould be clear¬ 
ly delimited within the program, and should NEVER branch 
outside their boundaries. 


STRUCTURED DESIGN. 

There are several approaches to "structured design " in 
the literature these days, all of which offer a different way 
of representing the relationship among calling and called 
modules in a system. We can represent a "hierarchy" of 
functions and sub-functions pictorially using a hierarchy 
chart (figure 2). In such a chart, calling programs are ar¬ 
ranged in super-ordinate positions with respect to called 
sub-programs, and the functional "parts explosion " of an 
application becomes evident. 



FIGURE 2. Hierarchy Chart 


For example, let's build an interactive display program 
which accepts a telephone number from a CRT, then 
displays either the name/address of the telephone owner 
or a "no such phone number" message (figure 3). 

The hierarchy chart for our hypothetical phone inquiry 
system shows that we've refined the overall phone inquiry 
job into four sub-functions: accept a phone number from 
the terminal: look for the phone number in a file; display 
phone information; and display error message. Each of 
these "modules" represents an independently program¬ 
mable/testable function. The numbering scheme in the 
hierarchy chart is patterned after IBM "HlPO" documen¬ 
tation standards, and may be replaced by program names 
or any other unique identifier. 

The Get Phone Number module (2.0) accepts no 
arguments from its caller (in fact, certain environment- 


specific arguments, such as logical units numbers, might 
need to be passed—we've omitted them from this func- 
tionai diagram) and returns either a collected phone 
number or a flag which signals that the operator is fin¬ 
ished. The "finish" flag can be set by typing escape or 
CTRL/Z or a null phone number; in any case, it's important 
to note that the decision about what to do when the flag is 
raised is the responsibility of the caller (1.0), which will ex¬ 
ecute the functions on level 1 iteratively until then (see the 
program listings in figure 4). 



2.0 3.0 4.0 5.0 


LEVEL 1 


ARGUMENTS: 


IN 

OUT 

2.0 - 

PHONE NUMBER. 

ALL FINISHED FLAG 

3.0 PHONE 

NUMBER 

PHONE RECORD*. 

ERROR FLAG 

4.0 PHONE 

RECORD* 

— 

5.0 ERROR 

MESSAGE 

- 


*N0TE: This argument is passed via a named common (i.e. MAP) area. 


FIGURE 3. Phone Inquiry System Hierarchy Chart 


The Lookup Phone Number module (3.0) accepts a 
phone number from the caller, and looks for it in a phone 
number file (this is Just a GET statement with some error 
handling using BP2 and RMS). If it finds it. it returns a 
record containing information about the phone number ac¬ 
count. If not. it raises an error flag. Again, it is the respon¬ 
sibility of module 1.0 to interpret and deal with the error 
flag. In this case, the caller decides whether to call module 
4.0 (Display the Record) or 5.0 (Display Error) based on in¬ 
formation returned by 3.0. 

Inspecting the listings, you'll find that 2.0, 4.0, and 
5.0 call screen formatting functions which do not appear 
on the hierarchy chart. Screen formatting routines, and 
other utility service routines which are frequently called at 
the lower hierarchy levels are really separate "support 
hierarchies" which can be documented separately (RMS 
routines are a good example of a support hierarchy; such 
routines are excellent candidates for overlay co-trees. 


































page 12 March 1981 

RSTSPROFESSIONALRSTSPROFESSIONALRSTSPROf^lONALRSTSPROFESSIONALRSTSPROFESSIONAlJ^STSPROFESSIONALRSTSPROFESSIONAlJ^STSPROFESSIONALRSTSPROFESSiONALRSTSPRO^ 


10 1 MODULE 1.0 - PHONE INQUIRY SYSTEM 

1000 <OPEN FILES> 

1500 MAP (PHONE) PH.PHONE.NO$ = 10%, PH.NAME$ = 40% 

2000 CALL GETPHN (PHONE.NO$, ALL.FINISHED.FLAG%) & 

\ UNTIL ALL.FINISHED.FLAG% & 

\ CALL LOOKUP (PH.PHONE.NO$. ERROR.FLAG%) & 

\ IF ERROR.FLAG% THEN 

CALL ERRDIS (ERT$(ERROR.FLAG%)) & 

ELSE & 

CALL PHNDIS & 

1 ENDIF. & 

I 

2090 CALL GETPHN (PHONE.NO$, ALL.FINISHED.FLAG%) & 

\ NEXT & 

I 

32767 END & 

I 

10 SUB GETPHN (PHONE.NO$, ALL.DONE.FLAG%) & 

I 

1000 CALL CRTPUT (1%, 10%, "PHONE#:") & 

\ CALL CRTGET (PHONE.NO$, 10%) & 

\ ALL.DONE.FLAG% = PHONE.NO$ = CHR$(27%) & 

\ PHONE.NO$ = CVT$$(PHONE.NO$, 4%) & 

\ SUBEXIT & 

I 

32767 SUBEND & 

1 

10 SUB LOOKUP (PHONE.NO$, ERR.FLAG%) & 

1 

1000 ON ERROR GO TO 1090 & 

\ GET #1%, KEY #0% EQ PHONE.NO$ & 

\ ERR.FLAG% « 0% & 

\ GO TO 1099 & 

I 

1090 ERR.FLAG% = ERR & 

\ RESUME 1099 & 

I 

1099 ON ERROR GO TO 0 & 

\ SUBEXIT & 

1 

32767 SUBEND & 

1 

10 SUB PHNDIS & 

I 

1500 MAP (PHONE) PH.PHONE.NO$ = 10%, PH.NAME$ = 40% & 

1 

2000 CALL CRTPUT (5%, 10%, "PHONE#" + PH.PHONE.NO$) & 

\ CALL CRTPUT (6%, 10%, "OWNER:" + PH.NAME$) & 

\ SUBEXIT & 

I 

32767 SUBEND & 

I 

10 SUB ERRDIS (ERR.MSG$) & 

I 

1000 CALL CRTPUT (5%, 10%, "ERROR:" + ERR.MSG$) & 

\ SLEEP 2% & 

\ SUBEXIT & 

1 

32767 SUBEND & 

I 


(Note the CRTPUT subroutine accepts a line and column CRT cursor 
position, and a text string to display. The CRTGET subroutine 
accepts into a character string variable a field of specified 
length from the CRT). 

FIGURE 4. Program Listings 


which is a topic for a future article). The listings also show 
that the contents of any flag variables are never assumed: 
that is, all flags are explicitly set or cleared within the 
moduie whose function determines the value of the flag. A 
flag variable should never be assumed to be initially 
zero/non-zero, and it should never be necessary to initialize 
a flag you expect back from a subprogram before calling 
the subprogram. 


THE EFFECTS OF FUNCTIONAL MODULARITY ON SYSTEM 
CHARACTERISTICS. 


A system which is refined into functional modules is 
less likely to fail during integration testing (since the in¬ 
tegration testing is buiit into the design), more readiiy 
adapted as user needs change (the functions of each 
module don’t chnage, but new ones may be added and 
called from superordinate modules to handle new re¬ 
quests), and more readily repaired after a failure (fault 
isolation is keyed directly to the function which is per¬ 
formed incorrectiy, and the failing software module can be 
removed and tested/debugged independently of the rest 
of the system). In addition, functionally modular systems 
tend to be more available (unrelated parts of the system 
can be kept in service while other parts are repaired) and 
efficient (the hierarchy chart is a different way of express¬ 
ing the ODL file; overlays are a design product rather than 
an after-the-fact hatchet job). 
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DO YOU HAVE A HARD TIME 


FORTRAN 

PROVING YOUR BILLS TO YOUR PDP-11 USERS? 


PAYROLL 

The Billings 11 Program From Mark Ops Gives You: 


,1, im. M. aX 

PACKAGE 

• Session by Session Accounting 


SOURCE, COMMAND FILES and 

• Variable Time of Day Pricing Schemes 


DOCUMENTATION for a COMPLETE 

• Bulk Rate Storage and Block by Block Pricing 

• Summaries by Session Identification (15 chars) 


SYSTEM with FIVE SPECIAL DEDUCTION, 

• Crash and Error Recovery 


CHECK WRITING, and REPORT 

• Surcharges for Special Software 


GENERATION. 

Fully Supported — Installation Time about 1 Hour 

Call Tom Courtney (617) 266-1930 for a set of 


(Sample State Income Tax Module included.) 

report samples or write to; 


GOLDEN TRIANGLE COMPUTERS 

636 Beacon Street 

Boston, MA. 02215 


Phone 713/883-4588 


Box 1866, Orange, TX 77630 





Don't connect remote 
terminals to your 
Unibus*-based 
computer 


UNTIL YOU'VE READ ABOUT OCA'S SYSTEM 205 


UNIBUS-INTERFACE STATISTICAL MULTIPLEXOR. 


A DZll emulator and stat mux in one. 

That’s what DCA’s System 205 gives you. In fact, a 
single DCA 205 acts as a host-end multiplexor for 
PDP-11, VAX or 2020 computers while eliminating 
up to 16 DZll modules! 

Supports up to 128 remote terminals. 

With a 205 and another DCA statistical multiplexor 
at the remote end, you can support up to 128 remote 
asynchronous terminals. Any DZlTs already in use 
for remote-site service can be transferred to local 
service. 



1 / —C H 115 


An easily-affordable 
point-to-point 
datacomm network. 


Requires just a single Clnibus slot. 

That’s right, the 2(3d only uses one Gnibus hex slot, 
freeing up from three to fifteen additional slots. 
Costly and unsightly cables are eliminated, too. 

Superb response time. 

The 205 is, in effect, a DZll and statistical multi¬ 
plexor in one integrated unit. So the character delay 
that normally occurs between a DZll and a multi¬ 
plexor is eliminated. Result: Your terminal users will 
enjoy a crisper echo. 

Statistical multiplexing. 

Our 205 gives you all the benefits of DCA’s 
statistical multiplexing, including full ARQ error 
control that maintains data integrity, network trans¬ 
parency, reduced CPU overhead — and more. 

Multipoint multiplexing. 

This isn’t a promise, it’s a fact: DCA’s customers 
have been multidropping several remote terminal 
locations to a single telephone line since 1979. And 
multipoint multiplexing with the 205 lets you enjoy 



Multipoint multiplexing lowers 
costs dramatically. 

I 105 II 105 II 105 I 


the lowest cost communications possible from 
Unibus-based DEC computers. 

Reliable, proven performance. 

Like our other statistical multiplexors, the 205 is a 
field-proven, reliable system. In 1974, DCA intro¬ 
duced statistical multiplexing — we’ve been the 
technological leader ever since! 

Unparalleled growth potential. 

For networks that are bound to grow, DCA is the 
clear-cut choice. Because complete system compat¬ 
ibility lets you start with a 205 today, and grow into a 
larger, more powerful network tomorrow. And DCA 
users enjoy the lowest-cost network growth in the 
industry! 



~t^| 105 


O Q 


1--- ^ 


r ■ 




Any terminal user can access 
any host in the network. 


O-GiEH-; HOCT 


Excellent cost efficiency. 

There is no better value for DEC users — the 205 will 
dramatically reduce your datacomm costs while 
providing high throughput and reliable operation. 
Interested? Send in the coupon or call DCA at 
404/448-1400 today. 

1 - 1 

I □ Send me more information on DCA’s System 205. I 

I □ Please have a sales representative call. i 

' Name_ I 

Title_ I 

I Company_ 



Digital Communications Associates, Inc. 
Dept. S-2 135 Technology Park/Atlanta 
Norcross, GA 30092 


Address_ 

City_State_Zip 


I Telephone 

I_ 


(Area) 


(Number) 


(Ext.) 


J 


ENGINEERED 
TO EXPAND_ 


* (Jnibus, DEC, DZll, PDP-11, VAX and 2020 are trademarks of Digital Equipment Corp. 
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DEAR 

RSTS 

MAN: 



Send questions to: DEAR RSTS MAN, P.O. 
Box 361, Fort Washington, PA 19034. 

DEAR RSTS MAN: Perhaps you can explain 
the whys and wherefores of the drop/regain 
temporary privileges SYS call particularly as 
they are used by $QUE and $ATPK when both 
are protected <232>. 

I have had 2 problems — one with $QUE, 
the other with $ATPK. 

$QUE — Trying to queue a job from a program 
using the method given in the Systems User 
Guide [QUE.11 User’s Guide, RSTS Profes¬ 
sional, Vol. 2. # 4], QUE "bombed" with a "Pro¬ 
tection Violation at line 1040" error message. 
The particular line was the one opening 
$QUEUE.SYS for read access. That statement 
was preceeded by the SYS call trying to 
"regain” its temporarily dropped privileges. 
$QUEUE.SYS had a protection code of <60 > 
at the time but why does that make a differ¬ 
ence to a program with privileges. — The error 
did not happen if my calling program was itself 
privileged. 

$ATPK — Trying to perform the contents of an 
indirect command file using $ATPK. I also 
chained to It from a user program. Its code 
causes It to drop its privileges temporarily — 
read Monitor tables I and II — regain its privi¬ 
leges and perform several PEEK functions. Of 
course. It too died when executing the first 
PEEK even though it had allegedly regained its 
privileges. However, it works If called as a CCL 
and also works if the calling program is 
privileged. 

I have performed some of these tests on 
two other machines — one running Release 
7.0 and one running Release 6C — results 
were the same on all machines. 

What’s going on — HELP! 

Mike Farrell 

Dear Mike: Old RSTS adage: "When you 
chain from non-privilege to a privileged pro¬ 
gram at a line number, the privileged program 
permanently drops privilege." Be glad that it 
does! ThaTs why CCLs have ;PRIV in their 
definitions. 

DEAR RSTS MAN: Regarding your answer 
to ‘Frozen Solid,’ I’ve had the same problem of 
two programs In DIBOL UPDATE mode lock¬ 
ing each other—and themselves—out of a 
record. I work on a PDP-11/70 using 6C: the 
friend who introduced me to RSTS PROFES¬ 
SIONAL has also experienced the problem 
under 7.0. 

The solution you gave may work in 
BASIC-PLUS, but It fails In DIBOL. In DIBOL. 
one may access records that cross block or 
cluster boundaries, which means that a lock 
on one record may in fact lock two blocks. 
The second program may access the first 
block properly but find the second locked; 
when it goes back to get the record again, it 
finds the first block locked—by its read the 
first time through. 

The addition of one line of code, how¬ 
ever, frees things up. The following is our 
standard solution to the problem (minus our 
own external subroutines, which add nothing 
to the understanding of the situation): 


GOTO GTREC1 
GTRECO. OFFERROR 

XCALL ERROR (ERN.ERL) 

IF (ERN.NE.40) GOTO BOMB 
UNLOCK CHAN 

SLEEP TIME 


GTREC1. ONERROR GTRECO 

READ (CHAN.RCRD.NDX) 
OFFERROR 


JUMP OVER ERROR ROUTINE AND GET RECORD 
TURN OFF THE ERROR TRAP 
WHAT ERROR OCCURRED? 

PERMIT ONLY ‘RECORD LOCKED’ 

UNLOCK THE RECORD AFTER ATTEMPTED READ. 

THUS PERMITTING ACCESS ON NEXT TRY 
ADJUST TIME DEPENDING ON THE FILE AND 
THE FUNCTION — WE USUALLY USE 1 SEC 
- AND LOOP BACK TO THE READ 
SET THE ERROR TRAP 

RANDOM-ACCESS READ FOR RECORD NO. NDX 
TURN OFF THE ERROR TRAP AND PROCEED 


Obviously, the ‘GTRECO’ error handling routine can be modified to deal with any other errors the 
user may want to permit. ‘BOMB’, of course. Is a bomb-out routine that would close any open files, re¬ 
port the error, and get out, leaving some poor programmer to try to figure out what went wrong. 

We’ve found that adding the UNLOCK CHAN Instruction handles the problem adequately in a 
number of DIBOL shops, even in the presence of the phantom priority booster. 

What it doesn’t handle Is another DIBOL problem involving the UPDATE mode. In several of our 
relative files, we’ve been able to READ the final record successfully but have been unable to WRITE 
It back. We suspect the problem occurs when the final record coincides with a cluster boundary, but 
haven’t investigated it further; as standard practice, we simply create an extra record in every relative 
file and never use it. Do you know why this happens, and is there any more elegant solution than our 
very practical one? very truly yours, Phil Anthony, Programmer, Joy Shops Inc. 

Readers, DEC?? ff 


How to count 
your chickens ^^4^5 
before they 
hatch. 


Surprises can be expensive. Even good news 

can cost money if your company is not prepared for It. 

With financial modeling you can avoid surprises 
and plan calmly for whatever the future has In store. 

FINAR is the latest financial analysis and reporting 
system. It will help you plan: 

■ Budgets ■ Project evaluation 

■ Cash flow ■ Forecasts 

■ Capital investment ■ Consolidation 

All you need is a DEC PDP-11 with RSTS or a VAX-11, 
and FINAR—the Financial Analysis and Reporting Language. 
If you’d like to know how to count your 
chickens before they hatch, call or write: 

Finar Systems Limited 
6000 E. Evans, Suite 2-300 
Denver. CO 80222 • (303) 758-7561 

New York • (212) 222-2784 
Chicago • (312) 876-1081 
Houston • (713) 960-0848 
San Francisco • (415) 956-1178 
Toronto • (416) 245-8473 

FINAR 












March 1981 page 15 

RST5PROf=ESSIONALRSTSPROreSSIONALRSTSPnOFESSIONALRSTSPROFESSIONAlJeTSPROFESSIONALRSTSPROFESSIONALRSTSPROFESSIONALRST5PR()FESSIO^ 


Points of Interest 

By Wilf Forrow, Schroder Life Group, Portsmouth POl 2AW 


TERMINAL PRINTERS 

RSTS normally outputs data quite happily to a powered down terminal. This is a problem for a printer such as an 
LAI 20. especially if the spooler deletes the file thinking it was printed O.K. Does anyone know how to prevent this 
other than by remembering to type control/S before powering the printer dovm? 


MAGNETIC TAPE DENSITIES 

Who thinks 1600 bit per inch is risky for secure tapes? I used to. but I have changed my mind. The U.S. National 
Bureau of Standards recommend that 800 bit per inch be avoided as this is the least reliable of all current 
densities. (Presumably, 1600 bpi is safer because of the different recording method). I still get some mag tape 
errors in my error log. but at least a full RM03 back up fits on two tapes instead of three and runs considerably 
faster. 

The bureau also recommends for long term storage without loss of data:— 

1. Purchase good quality tapes. 

2. Avoid tapes with more than 4 or 5 write skips. 

3. Avoid tapes over 5 years old. 

4. Transport and store tapes vertically in cannisters. 

5. Keep tapes clean, at constant humidity and temperature. 

DISABLING TERMINAL KEYS ON VTIOO’s. LAI 20 s ETC. 

Some installations may want to disable selected keys, for example CONTROL. NO SCROLL. BACK SPACE, BREAK. 
Here is a simple method which is reliable, reversible, cheap and will not invalidate your warranty. It works by 
placing a spacer below the keytop so that the key is locked in the up' position (so you can immediately tell that the 
key Is disabled). A section from a plastic book-binder is ideal — do not use metal in case it falls Into the electronics. 

1. Obtain a length of plastic bookbinder (5/16 of an inch internal measurement, approximately). 

2. Cut and file smooth a section approximately 5/32 of an inch long, (cut several and keep the best). 

3. Gently lever off the keytop. 

4. If the plunger comes out \with the keytop, remove It and put it back in the keyboard. 

5. Insert the spacer below the shoulders. It should be a tight fit. 

6. Replace keytop and check that the key is disabled. 
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And we’ll get ’em on their way to you right away — 
usually within 24 hours. Exactly what you wanted. 
At the right price. In time. On time. Every time. 
Anywhere in the continental U.S.A. 

You can count on us. 

Because we’re The Suppliers. 


DEC Peripherals 

BA11KE 

DD11CK/DK 

DH11AD 

DL11E 

DZ11-A,B,C,D,E,F 

FP11-A 

MS11LB 

MS11LD 

MSV11DD 

DLV11J 

RM05-AA 

RK07EA 

RK711EA 

RL02-AK 

RL211-AK 

RL01-AK 

RL11-AK 

RLV21 

RLV11 

RX211-BA 

RXV21-BA 

TJE16-EA 

TWE16-EA 

TWU45-AA 

KDF11-AD,HD,HF,HH,HK 

DR11C 

MR11EA 

VT103-AA,BA 

Call us at (904) 434-1022 


DEC Terminals 

LA 34 DECwriter IV 
LA 36 DECwriter II 
LA 38 DECwriter IV 
LA 120 DECwriter III 
LA 180 DECprinter I 
VT 50 DECscope CRT 
VT 52 DECscope CRT 
VT 100 DECscope CRT 
VT 103 DECscope CRT 
VT 132 DECscope CRT 

Call us at (904) 434-1022 




DEC Supplies 

Disk Cartridges and Packs 
Diskettes 

Diskette Storage Units 
Mag Tape 
Ribbons 
Paper 

Forms Caddy 
Anti-Static Rugs 
Print wheels 
Terminal/Printer Stands 
Forms Bursters 
and Decollators 
Check Signers 
and a whole lot more 

Call us for our complete 
catalogue: 

1-800-874-9748. 

In Florida, call 
(904) 434-1022. 


COMPUTER 
&TERMBMAL 
EXCHANGE 

Wb^ The Snpidiers 



114 East Gregory Street Pensacola, FL. 32501 


DEC is a registered trademark 
of Digital Equipment Corporation 
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CTRL/F Monitor Support 

Version: V7.0-07 

Copyright (C) 1981 by Software Techniques, Inc. 

No portion of this document may be reproduced for any 
purpose without the express permission of Software 
Techniques, Inc. 

The information in this document is subject to change 
without notice and should not be construed as a commitment 
by Software Techniques, Inc. Software Techniques. Inc. 
assumes no liability for any errors which may appear in this 
document. 

Nothing is more inevitable than an idea whose time has come. 

- Emerson 

1.0 Introduction 

When RSTS/E V7.0 was (finally) released in early 1980 
and the Large File Processor was unveiled it became clear 
that information about open files was now contained in 
memory (as opposed to being pointed to on disk.) I set 
about at that point to develop a routine that would allow 
users of the system to strike a control key to display their 
open files, much the same way CTRL/T displays a "mini- 
SYSTAT" for the user. 

With all the information readily available in memory it 
merely became a matter of finding out where the informa¬ 
tion was and how it was stored. In addition, the Terminal 
Driver would have to be modified to support this added 
functionality. 

It turned out to be fairly easy to solve the above 
problems. However, writing the CTRL/F code itself turned 
out to be quite an effort. I had a large amount of informa¬ 
tion. and several different display formats. Not to mention 
the trouble of debugging. Many lonely hours of using 
MONODT and a listing of the TTOPNF code were spent 
before the final version was complete. 

What follows is the installation procedure for CTRL/F 
Open Files support for your RSTS/E V7.0-07 Large File 
Monitor. The installation of this option allows the user to 
strike the < CTRL > and < F > keys simultaneously to get 
a listing of the files currently open by the job. 

TTOPNF WILL ONLY WORK ON LARGE FILE SYSTEMS. 
2.0 Installation 

Rather than get into a very tedious technical discus¬ 
sion of the exact mechanics of TTOPNF, I will merely pre¬ 
sent how it may be included in your RSTS/E monitor. To in¬ 
stall TTOPNF requires a SYSGEN. Because modifications to 
the standard files is required, the SYSGEN should be run 
off disk (as opposed to tape). To do this copy all the files off 
your SYSGEN tape into the same account as the TTOPNF 
files. Several things have to be done before you can run the 
standard SYSGEN procedure to include TTOPNF support. 
These are: 


1. Assemble TTOPNF.MAC 

2. Modify the terminal driver (TTDVR.MAC) 

3. Insert TTOPNF.OBJ in the RSTS.OBJ library 

4. After SYSGEN dialog, modify SYSGEN.CTL to 
include TTOPNF. 


2.1 TTOPNF.MAC 

It should be noted that the source as it stands now has 
been thoroughly tested at several sites for well over a year. 
Beware, modifications can lead you into trouble. 

The assembly procedure for TTOPNF.MAC is as 
follows: 

RUN $MACRO 

*TTSySF,TTSYSF/C=COMMON,KERNEL,TTSYSF 
ERRORS DETECTED; 0 

NOTE 

The files KERNEL.MAC and COMMON.MAC can 
be located on your RSTS/E Sysgen Medium. 


2.2 TTDVR.TEC 

To make as simple as possible to modify the terminal 
driver (TTDVR.MAC on your Sysgen Medium). I developed a 
TECO macro that will modify TTDVR.MAC to include sup¬ 
port for TTOPNF. To modify the standard TTDVR.MAC file 
found on your RSTS/E distribution, place it in the same ac¬ 
count as TTDVR.TEC. Then run TTDVR.TEC. It should pro¬ 
duce output similar to the following. 

RUN TTDVR.TEC 

Found ' TTDVR.MAC" working 

When TTDVR.TEC is through the copy of TTDVR.MAC in 
that account will have been patched to support TTOPNF. If 
any errors occur they will be TECO errors. Analyze the error 
and take appropriate action to correct the problem 


2.3 Inserting TTOPNF.OBJ in RSTS.OBJ 

To insert the TTOPNF module in RSTS.OBJ requires the 
use of the program LIBR.SAV. This program should cur¬ 
rently be in your system library ([1.2]). If not there it can be 
found on your RSTS/E Sysgen Distribution. Follow this pro¬ 
cedure to accomplish the insertion. 

RUN $LIBR.SAV 
*RSTS/X/N=RSTS,TTOPNF 

TTOPNF has been sucessfully inserted if no errors occurred. 


RSTS users: 


Announcing, DISKIT, the first software 
tool kit for complete disk management. 


Disk Optimization Made Easy 
The DISKIT package provides you with all 
of the tools and utilities you need to create 
and manage a well-structured disk. lust 
look at all you get: 

DSU Disk Structuring Utility 

DSU is a disk-to-disk transfer utility which 
creates a well-structured disk. Fast. (We 
transferred 289,000 blocks in 4,000 files in 
75 accounts. It took 32 minutes. That's 
150 blocks/second.) And the features go 
on and on: 

• Transfers between unlike disks 

• Saves all accounting data 

• Optimizes file clustersizes 

• Places and pre-extends UFD's 

• Allows manual file placement 

• Full logging and statistics 

• Sophisticated error handling and 
recovery 

DIR MACRO-11 Fast Directory Program 
Imagine. Disk directories 12 times faster 
than ever before. Look-up files by name, 
extention, and date (with wildcards) at the 
incredible rate of 250 files/second. And 
DIR isn't just fast, it's smart. DIR supports 
all of the standard DIRECT switches 
(including backwards, up to 1,000 files) 
along with features you can't find anywhere, 
like password lookup, UFD placement, and 
UFD size. It even works on dismounted 
disks, detecting bad directory structures 


and identifying them with comprehensive 
error messages. (It's the perfect disk 
diagnostic!) 

DUS MACRO-ll Disk Utility Subroutines 
The very same routines used in these disk 
management tools are available to you, 
with documentation, so that you can write 
your own disk handling programs. Included 
are routines (callable from Basic-Plus 2 or 
CSPCOM programs) which allow you to 
create, place, and fully extend UFD's under 
normal timesharing. In seconds. 

OPEN MACRO-11 Open Files Display 
Program 

OPEN displays open files on your system 
by job, with complete job and file statistics. 
It even has a sleep switch, allowing you to 
dynamically update the information at any 
desired interval. 

Proven Technology 

You don't have to be a field-test site to keep 
ahead of the game. All of these products 
have been thoroughly tested for six months. 

Special Offer 

All four products (DSU, DIR, DUS, and 
OPEN) are available separately. But now 
the entire package, with complete 
documentation, is only $850. If you need 
further information, just call us at (213) 
594-9405 or write. But, don't wait too long. 
This offer expires February 28, 1981. 


Once again, we've got the answer. 


DISKIT from Software Techniques, Inc. 

SOFTWARE SPECIALISTS ENGINEERING CONSULTANTS 
5S42 KATELLA AVE., SUITE #101. LOS ALAMITOS. CA S0720 
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2.4 Modifying SYSGEN.CTL 

At this point you should run the SYSGEN.SAV pro¬ 
gram and configure your system. After this is completed, a 
small modification must be done to SYSGEN.CTL. During 
the LlNKing of the TER phase of the monitor an additional 
library search must be performed for TTOPNF. If you have 
included CTRL/T mini-systat support then insert the text 
“TTOPNF" directly below that in the SYSGEN.CTL file as 
shown. 

$R LINK.SAV 

TER/Z,TER/A/W,TER=IN:TER,DK:RSTS.STB/X/B: 117000/0: 1000/I/C 

TTDVR/C 

IN:RETS 

TERPAT 

TTSYST 

TTOPNF 

$R LINK.SAV 

If TTSYST has not been included insert the text following 
"TERPAT". 


3.0 Appearance 

After the new monitor SIL has been installed striking 
a CTRL/F sequence will produce a listing of your currently 
open files. It will look similar to this: 

>TKB 

TKB> (CTRL/F struck at this point) 

1 KB4 

8 DBO [1,71] TEMP18.TMP* <60> 0 0 16 

15 DBO [1,2] TKB .TSK <104> 142 169 32 CR 

Most of the information is self explanatory. From left 
to right: The channel number, the device open on that 
channel, the project-programmer number, the filename 
(the "*" indicates the file has been marked for deletion or 
is tenative), the protection code, the current virtual block 
number of the file being accessed, the current virtual size 
of the file, the clustersize, and then a set of one-character 
flags. The flags: 

C The file is contiguous. 

R The file is open in read-only mode. 

U The file is open in special file update mode. 

L The file has been "placed" on the disk at a specific 
device cluster. 

** The file has a block or range of blocks locked. 

P The file is permanent and may not be killed or re¬ 
named. 

There are two special cases of file opens that are seen 
by TTOPNF. These are UFD opens and “non-file structured" 
disk opens. They produce output similar to that below. 

1 DBO Non-file structured 0 495513 8 

2 DBO [1,2] User-file directory 0 112 16 PR 

On the disk open the "size" becomes the number of 
virtual blocks the disk contains, and the clustersize is the 
device cluster size. UFD information is the same as file in¬ 
formation. Note the “PR" flags on the UFD open. 


4.0 Optional Patch 

It may be desirable to allow non-privileged users the 
ability to use CTRL/F. A patch can be made to the built 
monitor to enabie this. The patch procedure is shown 
below. 

RUN $ONLPAT 

File to patch? (Monitor SIL with TTOPNF support) 
Module name? TER 
Base address? ..PRVF 
Offset address? 0 
Base Offset Old New? 

137554 000000 001404 ? NOP 

137554 000002 032761 ? "C (UP-ARROW C TO EXIT) 

5.0 Caution 


Many letter quality printers use a CTRL/F sequence 
for acknowledgment. To prevent the monitor from in¬ 
tercepting this sequence set NO CTRL/R on these ter¬ 
minals. 


6.0 Information 


For any further help or comments contact: 


Steven P. Davis 
Director Software Engineering 
Software Techniques. Inc. 
5242 Katella Ave. Suite «101 
Los Alamitos, CA 90720 


7.0 Acknowledgements 

The routines OUTPNT, OUTSIZ, OUTCHR, and DODIVS 
are slightly modified versions of the same routines found 
in the TTSYST support code of the RSTS/E monitor. 


8.0 TTOPNF.MAC 

TITLE TTSYSF,<CTRL/F OPEN FILES>, 07 , 28-AUG-80 ,SPD 

; WRITTEN BY; STEVEN P. DAVIS 
; 

; COPYRIGHT (C) 1980, 1981 

; SOFTWARE TECHNIQUES, INC., LOS ALAMITOS, CA 90720 
; 

; THIS SOFTWARE IS PROVIDED FREE OF CHARGE TO MEMBERS OF THE NORTH 
; AMERICAN DECUS ORGANIZATION AND MAY BE COPIED ONLY WITH THE 
; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY 
; OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE 
; AVAILABLE TO ANY OTHER PERSON EXCEPT FOR NON-COMMERCIAL USE AND 
; TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP 
; OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN SOFTWARE TECHNIQUES. 

7 

7 THIS INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
7 NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY SOFTWARE 
; TECHNIQUES 
7 

; THIS SOFTWARE IS UN-RELEASED AND SOFTWARE TECHNIQUES HAS NO 
; COMMITMENT TO SUPPORT IT AT THIS TIME, UNLESS STATED ELSEWHERE IN 
; WRITING. 


.SBTTL 

SET UP WINDOW 

POINTERS 

.ENABL 

LC 


.DSECT 

,NOCREF 


FSLINK; 

.BLKW 

7POINTER TO NEXT FCB THIS UNIT 

F$FID; 

.BLKW 

7FILE ID (LINK TO NAME ENTRY) 

F$PPN; 

.BLKW 

;PPN OF FILE 

P$NAM: 

.BLKW 

7FILE NAME 


.BLKW 

;SECOND WORD FILE NAME 


.BLKW 

;EXTENSION 

FSSTAT; 

.BLKB 

;FILE STATUS BYTE 

FSPROT; 

.BLKB 

;PROTECTION CODE 

F$ACNT; 

.BLKB 

;OPEN COUNT 

F$RCNT: 

.BLKB 

;READ REGARDLESS COUNT 

FSWFND: 

.BLKW 

;FBB OF FIRST WINDOW 


.BLKW 

;RESERVED, RETRIEVAL ENTRY 

F$UFND; 

.BLKW 

;CURRENT FBB 


.BLKW 

;OF NAME ENTRY 
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We’ve got the best combina¬ 
tion of word processing and data 
management available. 

Other companies tried to over¬ 
lay data processing onto existing 
word processing software systems. 
It didn’t work too well. There were 
just too many unreasonable restric¬ 
tions: like small file sizes and cum¬ 
bersome sorting limitations. 

We’re a little hungrier, so we 
scrambled, wrestled, and finally 
arrived at the best word processing- 
data management system on the 
market. 

We integrated our own proven 
QDMS data management system 


with our new QWORD word pro¬ 
cessing capability and came up 
with pure dynamite. Then we sim¬ 
plified it so that anyone can 
handle it. 

You can buy a system that 
includes a PDP11/23, RSTS/E 
operating system, 192K bytes of 
memory, multiplexor, 20 Megabytes 
of removable disk storage on two 
drives, video console, QDMS and 
QWORD software for under 
$43,000. the computer sys¬ 
tem is maintained by DEC. 

In short, it's the best. 

QaW, don't write Tom Schreier 
at (203) 728-6777. 


Quodcrta' 

Specialists in DEC Systems 
196 TRUMBULL STREET • HARTFORD, CT. 06103 



March 1981 

p3Q6 CtCt 

RSTSPTOFESSIONALRSTSPW)FESSIONAU«TSPROI^IONALRSTSPW)F=ESSIONAli6TSPROFESSIONAU^STSPROFESSIONALRSTW^OFESSIONALRSTSPTOreSSIONA^^ 


F$UNT: 

.BLKB 

/FIP UNIT NUMBER 

F$SIZM: 

.BLKB 

/FILE SIZE MSB 

F$SIZL: 

.BLKW 

/FILE SIZE LSB 

F$CLUS: 

.BLKW 

/FILE CLUSTER SIZE 

F$WCB: 

.BLKW 

/FIRST WCB FOR THIS FILE 

.DSECT 

,NOCREF 


W$IDX: 

.BLKB 

/HANDLER INDEX (0=DISK) 

W$STS: 

.BLKB 

/STATUS FLAGS 

W$JBNO: 

.BLKB 

/JOB * 2 

W$FLAG: 

.BLKB 

/FLAG BITS 

W$PT: 

.BLKB 

/PENDING TRANSFERS 


W$NVBM; 

WSNVBL: 

W$FCB: 

W$REN: 

W$WCB: 

W$NXT: 

W$WND; 


.BLKB 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 

.BLKW 


;NEXT VIRTUAL BLOCK MSB 
;NEXT VIRTUAL BLOCK LSB 
;FCB @ F$CLUS 
;RETREIVAL ENTRY NUMBER 
;NEXT WCB THIS FCB + FLAGS 
;FBB OF NEXT RETREIVAL WINDOW 
; (FROM ABOVE) 

;CURRENT WINDOW 



.BLKW 

/WORD 

TWO OF WINDOW 


.BLKW 

/WORD 

THREE OF WINDOW 


.BLKW 

/WORD 

FOUR OF WINDOW 


.BLKW 

/WORD 

FIVE OF WINDOW 


.BLKW 

/WORD 

SIX OF WINDOW 


.BLKW 

/WORD 

SEVEN OF WINDOW 

.BSECT 


/BITS 

FOR FILE STATUS 

US.OUT: 

.BLKB 

/FILE 

IS PHYSICALLY ON ANOTHER DISK 

US.PLC: 

.BLKB 

/FILE 

HAS BEEN PLACED 

US.WRT: 

.BLKB 

/FILE 

IS OPEN FOR WRITE ACCESS 

US.UPD: 

.BLKB 

/FILE 

IS OPEN FOR UPDATE 

US.NOX: 

.BLKB 

/FILE 

IS CONTIGUOUS 

US.NOK: 

.BLKB 

/FILE 

CANNOT BE KILLED DURING TIMESHARING 

US.UFD: 

.BLKB 

/NAME 

ENTRY IS A UFD 

US.DEL: 

.BLKB 

/FILE 

IS MARKED FOR DELETION 

.BSECT 


/BITS 

FOR W$STS OR DDSTS 


.BLKB 

/OPEN 

NON-FILE STRUCTURED 


.BLKB 

/READ- 

-LOCK ON FILE 


BR 110$ ;;AND CONTINUE 

MOV W$FCB(R4),R4 ;;POINT TO FCB FOR THIS FILE 

MOVB F$UNT-F$CLUS(R4),R4 ;;GET THE FIP UNIT FOR THIS FILE 

MUL 10.,R4 ;;COMPUTE OFFSET INTO LOGICAL NAME TABLE 

ADD L0GNAM+6,R5 ;/POINT TO UNIT NUMBER 

MOVB (R5),-(SP) //SAVE THE UNIT NUMBER 

TST -(R5) //POINT BACK ONE WORD 

CALL OUTPUT //PRINT OUT DISK NAME 

CALL OUTSIZ //PRINT OUT THE UNIT NUMBER 

MOV (SP),R4 //GET BACK WCB POINTER 

MOV W$FCB(R4),R4 //POINT TO FCB AGAIN 

SUB F$CLUS,R4 //POINT TO TOP OF WINDOW 

MOV F$STAT(R4),-(SP) //SAVE FILE STATUS 

MOV F$CLUS(R4),-(SP) //SAVE CLUSTERSIZE 

CLR -(SP) //FOR MSB AS CLUSTERSIZE 

MOV F$SIZL(R4),-(SP) //SAVE FILE SIZE LSB 

MOVB F$SIZM(R4),-(SP) //SAVE SIZE MSB 

CMP -(SP),-(SP) //SAVE TWO SPOTS FOR VITUAL BLOCK NUMBER 

BIT DDNFS,@16(SP) //OPEN NON-FILE STRUCTURED? 

BEQ 70$ //GO ABOUT OUR BUSINESS IF NOT 

CALLX ASCOUT,R5,NFSMSG //PRINT OUT THE MESSAGE 
BR 100$ //AND GO ON OUR MERRY WAY 


.BLKB 
WC$UPD; .BLKB 
WC$CTG; .BLKB 
WC$LCK; .BLKB 
WC$UFD: .BLKB 
WC$USE: .BLKB 


/WRITE-LOCK ON FILE 
/UPDATE MODE ON FILE 
/FILE IS NO EXTEND (CONTIGOUS) 
/LOCK IS ON IN FILE 
/FILE IS A UFD 
/WRITE PRIVS GRANTED 


.SBTTL TTSYSF - PRINT OPEN FILES FOR USER 
/ + 

/ TTSYSF - PRINT OPEN FILES FOR USER 
/ 

/ CALL: R1 -> TO CONSOLE DDB 

/ BACK: C-BIT SET IF CAN'T DO 
/- 

DEFORG TTSYSF 

TTSYSF:/MOVB DDJBNO(Rl),R3 //GET OWNING JOB *2 

BIC C<63.*2>,R3 //AND ENSURE A VALID JOB *2 

BEQ 10$ //NO JOB, NO OPEN FILES 

MOV JOBTBL(R3),R3 //GET JOB DATA BLOCK POINTER 

BEQ 10$ //NO JDB, NO OPEN FILES 

BIT JFPRIV,JDFLG(R3) //ARE WE PRIVILIGED? 

PRVF == . PATCH ** TO 'NOP' SO NON-PRIV CAN DO 

BEQ 10$ //NO, DON'T SHOW OPEN FILES 

BIT DDCONS,DDCNT(Rl) //REALLY CONSOLE DEVICE FOR JOB? 

BNE DOSYSF //YES, GO SHOW OPEN FILES 

10$: SEC //MARK AS NO GOOD 

RETURN // AND RETURN 


GLOBAL <JOBTBL> 
.ENABL LSB 


UFDMSG: 

NFSMSG: 

.EVEN 


10 $: 

20 $: 


!.ASCIZ %User file directory%<ll> 

:.ASCIZ <ll><ll>%Non-file structured%<11> 

/THIS COULD BE ANNOYING 

MOV R5,-(SP) //SAVE AN IMPORTANT REGISTER 

CMPB DDHORZ(Rl),DDHORC(Rl) //IS CARRIAGE CURRENTLY RESTORED? 

BEQ 10$ //YES 

MOV R3,-(SP) //SAVE THIS POINTER 

CALLX ASCOUT,R5,CRLF.O //NO, SO RESTORE THE CARRIAGE 

MOV (SP)+,R3 //GET IT BACK 

MOV JDIOB(R3),R3 //POINT TO THEIR I/O BLOCK 

TST (R3)+ //SKIP THEIR CONSOLE TERMINAL 

CLR R5 //LET R5 BE THE CHANNEL COUNTER 

CALL 30$ //OUTPUT NEXT CHANNEL 

CMP 15.,R5 //PAST LAST CHANNEL 

BGT 20$ //NOT YET 

CALLX ASCOUT,R5,CRLF.O //TO MAKE IT LOOK GOOD 

MOV (SP)+,R5 //RESTORE THE IMPORTANT REGISTER 

CLC //SAY DONE 

RETURN // AND EXIT 


40$: 

50$: 


INC 

R5 

//SET NEXT CHANNEL NUMBER 

MOV 

(R3)-I-,R4 

//GET POINTER TO WCB 

BEQ 

40$ 

//NOTHING THERE, GO FOR NEXT 

BIT 

1,R4 

//ODD ADDRESS? 

BNE 

40$ 

//THAT'S ODD, QUIT 

BR 

50$ 

//CONTINUE 

RETURN 


//PRE-MATURE RETURN 

MOV 

R3,-(SP) 

//SAVE THIS POINTER 

MOV 

R5,-(SP) 

//SAVE THIS COUNTER 

MOV 

R4,-(SP) 

//SAVE POINTER TO WCB 

MOV 

R5,-(SP) 

//PUT CHANNEL NUMBER ON STACK 

CALL 

OUTSIZ 

//OUTPUT THE CHANNEL NUMBER 

CALL 

OUTCHR,R5,<ll> 

//NOW OUTPUT A <TAB> 

MOV 

(SP),R4 

//GET WCB POINTER BACK 

MOVB 

W$IDX(R4),R2 

//IS THIS A DISK? 

BEQ 

60$ 

/ / YEP 

BIT 

R2, 1 

//BOGUS INDEX? 

BNE 

120$ 

//QUIT 

MOV 

R2,R5 

//COPY DEVICE INDEX *2 

ADD 

DEVNKB-2,R5 

//POINT TO NAME IN "DEVNAM" 

MOVB 

DDUNT(R4),-(SP) 

//SAVE THE UNIT NUMBER 

CALL 

OUTPNT 

//OUTPUT DEVICE NAME 

CALL 

OUTSIZ 

//AND UNIT NUMBER 


70$: 

MOVB 

F$PROT(R4),-(SP) //GET PROTECTION CODE 


ADD 

F$NAM,R4 

//POINT TO FILENAME 


MOV 

R4,-(SP) 

//SAVE THE POINTER 


TST 

-(R4) 

//SKIP THE WORD 


MOV 

(R4),-(SP) 

//SAVE THE PPN 


MOV 

(SP),-(SP) 

//COPY IT TWICE 


SWAB 

(SP) 

//SWAP FOR PROJECT NUMBER 


CALL 

OUTCHR,R5,<'1* 

400 + ' > //NOW (XJTPUT A <SP>"[ 


CALL 

OUTSIZ 

//OUTPUT THE PROJECT NUMBER 


CALL 

OUTCHR,R5,<' ,> 

//AND THEN A COMMA 


CALL 

OUTSIZ 

//THEN PROGRAMMER NUMBER 


CALL 

OUTCHR,R5,<ll* 

400+']> //THEN OUTPUT ]<TAB> 


MOV 

(SP)+,R5 

//POINT TO FILE NAME 


BIT 

<WC$UFD*400>, 

@20(SP) //WAS IT JUST A UFD? 


BEQ 

80$ 

//NO, TAKE NO SPECIAL ACTION 


TST 

(SP) + 

//SKIP THE PROTECTION CODE 


CALLX 

ASCOUT,R5,UFDMSG //AND SAY IT'S A UFD 


BR 

100$ 

//AND CONTINUE 

80$: 

CALL 

FILNAM 

//GO PRINT OUT FILENAME 


BIT 

US.DEL,16(SP) 

//ARE WE DELETED? 


BEQ 

90$ 

//NOPE 


CALL 

OUTCHR,R5,<'*> 

//OUTPUT A STAR 

90$; 

CALL 

OUTCHR,R5,<60. 

*400+ll> //NOW OUTPUT <TAB>< 


CALL 

OUTSIZ 

//PRINT PROTECTION CODE 


CALL 

OUTCHR,R5,<ll* 

400+62.> //NOW OUTPUT ><TAB> 

100$: 

MOV 

16(SP),R4 

//RESTORE WCB POINTER 


MOV 

W$NVBL(R4),2(SP) //SAVE VIRTUAL BLOCK LSB IN STACK 


MOVB 

W$NVBM(R4),(SP) //SAVE VIRTUAL BLOCK MSB IN STACK 


CALL 

DBLNUM 

//OUTPUT NEXT BLOCK 


CALL 

OUTCHR,R5,<ll> 

//NOW OUTPUT A <TAB> 


CALL 

DBLNUM 

//OUTPUT FILESIZE 


CALL 

OUTCHR,R5,<ll> 

//NOW ANOTHER <TAB> 


CALL 

DBLNUM 

//OUTPUT THE CLUSTER SIZE 


CALL 

FILSTA 

//DO PILE STATUS 

110$; 

CALLX 

ASCOUT,R5,CRLF 

.0 //FINALLY RESTORE CARRIAGE FOR THIS 

120$: 

TST 

(SP) + 

//SKIP WCB POINTER 


MOV 

(SP)+,R5 

//RESTORE CHANNEL POINTER 


MOV 

(SP)+,R3 

//RESTORE lOB POINTER 


RETURN 


//EXIT SUBROUTINE 

GLOBAL 

<CRLF.0 

,LOGNAM,DEVNKB> 



.DSABL 

LSB 


SBTTL 

PRINT OUT FILE STATUS 

FLAGS 

’/ + 

/ CALL 

FILSTA 



/ SP -> 

FILE STATUS BITS 


/ R4 GETS CLOBBERED 



.ENABL 

LSB 


FILSTA; 

MOV 

(SP),R4 

//SAVE RETURN ADDRESS 


MOV 

2(SP),(SP) 

//RESET AS FILE STATUS 


MOV 

R4,2(SP) 

//AND RESET RETURN ADDRESS 


CMP 

US.WRT,(SP) 

//IS THERE STATUS? 


BEQ 

50$ 

//NOPE, SKIP IT 


CALL 

OUTCHR,R5,<ll> 

//AND YET ANOTHER <TAB> 


BIT 

US.NOK,(SP) 

//PERMANENT FILE? 


BEQ 

10$ 

//NOPE 


CALLX 

OUTCHR,R5,<'P> 

//SAY SO 

10$: 

BIT 

US.NOX,(SP) 

//CONTIGOUS? 


BEQ 

20$ 

//NOPE 


CALLX 

OUTCHR,R5,<'C> 

//SAY SO 

20$; 

BIT 

US.UPD,(SP) 

//OPEN FOR UPDATE? 


BEQ 

30$ 

//NOPE 


CALLX 

OUTCHR,R5,<'U> 

//SAY SO 

30$: 

BIT 

US.UPD1US.WRT 

,(SP) //WE HAVE WRITE PRIVELEGES? 


BNE 

40$ 

//YES, SO IGNORE 


CALLX 

OUTCHR,R5,<'R> 

//IF NOT, SAY READ ONLY 

40$; 

BIT 

US.PLC,(SP) 

//ARE WE A PLACED PILE 


BEQ 

50$ 

//NOPE 


CALLX 

OUTCHR,R5,<'L> 

//SAY SO 

50$; 

TST 

(SP)-^ 

//GET RID OP STATUS 


RETURN 


//AND GO BACK 


.DSABL 

LSB 


.SBTTL 

PRINT OUT SINGLE OR DOUBLE INTEGER 

.ENABL 

LSB 



/ + 

/DBLNUM 

- PRINT 

OUT DOUBLE PRECISION INTEGER 

1 

WITH OR 

WITHOUT LEFT JUSTIFICATION 

i 

SP -> LSB OF INTEGER, I 

MSB OF INTEGER 

/ 

CALL 

DBLNUM 


/ 

R2 - R5 

RANDOM 


DBLNUM; 

MOV 

(SP)+,R5 

//SNAG RETURN ADDRESS 


CLR 

R2 

//CLEAR A HIGH ORDER 


BISB 

(SP)+,R2 

//GET THE HIGH ORDER OP THE INTEGER 


MOV 

(SP)+,R3 

//GET THE LOW ORDER 


MOV 

R5,-(SP) 

//REPLACE THE RETURN ADDRESS 


DIV 

10000.,R2 

//SPLIT THE NUMBER 


MOV 

R3,-(SP) 

//SAVE LOW ORDER 


TST 

R2 

//IS THERE A HIGH ORDER? 


BEQ 

10$ 

//NO HIGH ORDER 
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RABBIT-4 FILE SECURITY 
GUNS DOWN DATA RUSTLERS 
ON RSTS/E SYSTEMS 


Do You Know Who The Pesky Varmints 
Reading Your Confidential Information Are? 

RABBIT-4 will help you track’m and catch’m, 
cause it has a proven record of performance. 
RABBIT-4 wiii let you: 

□ Log secured file accesses 

□ Signal OPSER of violations 

□ Roll-out the bandits 

□ Freeze system activities with 
6 levels of file security to keep your data safe 
and secure, RABBIT-4 wili also: 

• Secure up to 64 data files 

• Provide 32 user descriptions pius wiid cards 

• Restrict file access to specified programs 

• Identify intrusions and intruders 

• Recover automatically from system crashes 


SEE OUR TALENTED RABBITS AT THE MAY DECUS MEETING 

and pick up a free Rabbit Coloring Book Souvenir! 

We’ii have a hospitaiity suite at the Eden Roc Hotei 
where we’ll demonstrate Rabbit’s resourcefulness in 
* Performance Analysis * Job Accounting * Resource Accounting 
* Data Management * Financial Planning * File Security 

RflXCD ,Nc 

3336 N. Flagler Drive, West Palm Beach, FL 33407 (305) 842-2115 
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30$: 

40$: 


50$: 


MOV 

CALL 

SBC 

MOV 

CALL 

RETURN 

CALL 

.WORD 

RETURN 

MOVE 

CALLRX 

.ASCII 

.ASCII 


R2,R3 

20 $ 


(SP)+,R3 

20 $ 


DODIVS,R5,30$ 

1000 ., 100 ., 10 . 


50$(R2),R2 
CHOUTE 


-$.?- 

"0123456789" 


;;SET TO OUTPUT IT 
;;DO IT 

;;LOW ORDER SHOULDN'T SUPRRESS LEADING ZEROES 
;;DO LOW ORDER NOW 
;IOUTPUT THE LOW PART 
;;AND GO BACK 

;;GO DO THE DIVISIONS, PRINTING ASCII DIGITS 
;;EXIT 

;;GET THE NUMERIC 
;;OUTPUT THE CHARACTER 


R2-R4 » RANDOM 
R5 -> PREVIOUS + 2 




OUTPNT: MOVE 
CALLX 
MOVE 
BIC 
BNE 

RETURN 


(R5)+,R2 

CHOUTE 

(R5)+,R2 

C<177>,R2 

40$ 


;;GET FIRST CHARACTER 

;; AND OUTPUT IT 

;;GET SECOND CHARACTER (IF ANY) 

;; AND TRIM THE SIGN BIT 

;;OUTPUT SECOND CHARACTER IF ONE EXISTS 

;;ELSE JUST EXIT 


.DSABL LSB 

DODIVS - DO A SERIES OF DIVISIONS AND EMIT THE QUOTIENTS. 
R3 - NUMBER TO DIVIDE 

C«1 IF LEADING ZEROS ARE TO BE PRINTED 



.EVEN 



; 

; 

CALL 

DODIVS,R5 






; 

.WORD 

ROUTINE TO 

1 CALL TO EMIT A QUOTIENT 

; + 




; 


(QUOTIENT 

IS IN R2, MAY NOT ALTER RO, R1, OR R5) 

I FILNAM - PRINT OUT A FILENAME 


; 

.WORD 

DIVISOR 1, 

DIVISOR 2, ... 

; 




; 

RETURN 



; 

R5 -> TO THREE FILENAME 

WORDS 

; 




; 




; 

R2-R4 ' 

■ RANDOM 


; 

CALL FILNAM,R5 


; 




; 




; 

NOTE: 

(DIVISOR N 

200) MUST BE 0 FOR N >- 2 

FILNAM: 

MOV 

70$,-(SP) 

;;PUSH FOR EXTENSION 






MOV 

PC,-(SP) 

;;BACK HERE ONCE 

DODIVS: 

MOV 

(R5)+,-(SP) ;;SAVE THE OUTPUT ROUTINE ADDRESS 

60$: 

MOV 

(R5)+,R3 

;;GET THE RAD50 WORD 


BIC 

-(SP),(SP) 

;;SAY NOT INTO SIGNIFICANCE YET 


SEC 


;;DON'T SUPRESS LEADING ZEROES 


ADC 

(SP) 

;;FORCE SIGNIFICANCE IF NEEDED 


CALL 

DODIVS,R5,80$ 

;;GO DO THE DIVIDES 

10 $: 

CLR 

R2 

;7 CLEAR A HIGH ORDER 


.WORD 

50*50,50 



DIV 

(R5)+,R2 

;; AND DIVIDE 


RETURN 


;;EXIT 


BNE 

20 $ 

;;RESULT <> 0, SAY SIGNIFICANCE STARTS 






TST 

(SP) 

;;RESULT - 0, IS IT SIGNIFICANT? 

70$: 

MOV 

’ .,R2 

;;SET TO OUTPUT A "." 


BEQ 

30$ 

7 7 NOT YET... 


CALLX 

CHOUTE 

;;AND CALL ROUTINE TO DO IT 

20 $: 

INC 

(SP) 

77 INDICATE RESULTS ALL NOW SIGNIFICANT 


BR 

60$ 

;;AND CONTINUE 


MOV 

R3,-(SP) 

77 SAVE REMAINDER 






CALL 

§4(SP) 

77 CALL THE OUTPUT ROUTINE 

80$: 

TST 

R2 

;;CHECK FOR A SPACE 


MOV 

(SP)+,R3 

77 RESTORE REMAINDER 


BEQ 

90$ 

;;OUTPUT A SPACE 

30$: 

TSTB 

(R5) 

77 MORE? 


ADD 

'A-1,R2 

;;ADJUST FOR ALPHABETICS 


BPL 

10$ 

77 YES, LOOP 


CMP 

R2, 33+<'A-l> 

;;IS IT IN FACT ALPHABETIC? 


MOV 

R3,R2 

77 NO MORE DIVISIONS, SET FINAL RESULT 


BLO 

40$ 

;;YES, GO USE IT 


TST 

(SP) + 

77 DUMP THE SIGNIFICANCE INDICATOR 


SUB 

36+<'A-l>,R2 

;;ADJUST FOR NUMBERIC (ZERO » 0) 


CALL 

e(SP) + 

77 GO OUTPUT FINAL RESULT 


BR 

30$ 

;;GO DO IT 


RETURN 

R5 

77 AND EXIT 

90$: 

MOV 

• ,R2 

;;SET SPACE AS CHARACTER 

.END 





BR 


40$ 


;;AND OUTPUT IT 


OUTSIZ - PRINT A NUMBER 0-255 WITH LEADING ZERO SUPPRESSION. 
SP -> NUMBER (HIGH ORDER BYTE IGNORED), ... 

CALL OUTSIZ 


9.0 TTDVR.TEC 

EBTTDVR.MAC$$§A/Found ' 
NORG TTSYST$LI 

ORG TTOPNF 

$$ 


TTDVR.MAC" - working/Y$S/AWR$FR/AWR/SPD$$ 
;OPEN FILES CODE 


R2-R4 
SP -> 


RANDOM 


;;HANDLE CONTROL/F (OPEN FILES) 


OUTSIZ: 

CLR 

R2 

77 CLEAR THE BUCKET 


BISB 

2(SP),R2 

77 AND GET THE K SIZE 


MOV 

(SP)+,(SP) 

77 MOVE THE RETURN ADDRESS DOWN 


7 CLC 


77C-BIT-0 FROM 'CLR' ABOVE 

100 $: 

MOV 

R2,R3 

77 COPY THE NUMBER 


CALL 

DODIVS,R5,30$ 

77 GO DO THE DIVISIONS, PRINTING 


.WORD 

100 ., 10 . 


110 $: 

RETURN 


77 EXIT 


NTI$CRR::$$-STI$CTT$ 

LI; TI$CFF - F HANDLER. 

$$STI$CTT::$$ 

LITI$CFF:: 

$$ 

SBNE 40$$S;;$R 

INOPE, IT IS CONTROL/T OR CONTROL/F 

$$ 

R2y 'F-lOO ;;CONTROL/F MAYBE? 

60$ ;;YEP, HANDLE IT 


OUTCHR - PRINT ONE OR TWO CHARACTERS. 

(BYTE2 NOT PRINTED IF 0) 


CALL OUTCHR,R5 
.BYTE BYTE1,BYTE2 


R2-R5 * RANDOM 


S40$:$I CMP 
BBQ 

$$ 

LI50$:$$ 

3LI 

60$: CALL 

BR 

$$ 

STTSYST:$$ 

3LI TMPORG 

TTOPNF: SEC 

RETURN 

UNORG 


MAPPED,R5,TTOPNF ;;GO TRY FOR OPEN FILES 


50$ 


OUTCHR: MOV 
ADD 


R5,(SP) 

2,(SP) 


;;CLOBBER SAVED R5 WITH RETURN ADDRESS -2 
;; THEN UPDATE TO REAL RETURN ADDRESS 


; + 

; OUTPNT 


PRINT ONE OR TWO CHARACTERS (VARIABLE). 
R5 -> 2 BYTES TO PRINT 
CALL OUTPNT 


$$ 

N.WORD 

OLI 

$$ 

N.WORD 

OLI 

$$ 

EX$$ 

$$ 


'G-100$ 

.WORD 


TI$CCG$$ 

.WORD TI$CFF 


;;DO SAME AS CONTROL/T 


;;SAY ILLEGAL UNLESS OVERLAID 
;; AND EXIT 


;CONTROL/F (OPEN FILES) 
;CONTROL/F (OPEN FILES) 


/an 

/tc 

f txa 


TEIVniNAL SAID, 

" run Prw&Rflm RUfJ' 
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Disc Structure Notes 

By Dave Mallery 

GOALS 
SURVIVAL 
PERFORMANCE 
SURVIVAL—MFD’S all equal 
DCN listings for contiguous files 
PERFORMANCE—Seek/Latency/Transfer 
Therefore, primary goal is 
REDUCE HEAD MOVEMENT 
Sources of Head Movement: 

Directories—if left unchecked, destroy performance 

a) by randomizing their location 

b) by randomizing their links. 

Non-contiguous files-window turns. 

A PROPER DISC 

Fully extended, non-deletable. 

Centered swapfiles (if applicable) 

Major data files*, centered. 

Recoverable due to 

1) copies of MFD contiguous 

2) DCN listings of major con¬ 
tiguous files for NFS access. 

HOW TO DO IT 

1) During DSKINT 

a) Pack Clustersize 

b) SATT.SYS base 

c) MFD Clustersize 8/16 

d) do not pre-extend [0,1] 

&[ 1 , 2 ] 

e) do not locate [1.2] 

2) At this point, you have a 
disc with one cluster MFD at 
beginning and nothing else but 
[0.1] first cluster. SATT.SYS is 
centered. 

3) Pre-extend the MFD [1.1] 

—based on expected total ac¬ 
counts. Plan your accounts — 
give yourself enough extra. 

4) Pre-extend [0.1]-you don’t 
need much. Dump the SATT. 

5) In [0,1], create enough 
contiguous files to fill up the 
SATT to the center. 

6) Run $REACT, creating 
your accounts. 

NOTE: You are making 

MFD entries only. Use UFD 
clustersize large enough. Create 
accounts in order of importance. 

7) Pre-extend each UFD. 

8) Make an image copy(s). 

9) Create and Protect your 
swap files. 

10) You will want to: 
a) make sys-call to zero 
an acct. priv or 


b) Place a null length, non-deletable file in each directory. The 
full UFD will remain contiguous. 

11) Copy in your main data files. Hopefully, they can be con¬ 
tiguous and protected. 

NOTE: they are at the top of the directory! As you need it. 
balance their locations around the center by deleting some of the 
bulk files in [0,1]. 

12) Copy in your BAC and BAS, etc. files. 

Make as many contiguous as possible. 

Finally all the rest. 

As you copy, do the BAC.TSK files first, so they are higher up in 
the directory. 

In [1,2] place login at the top. 

Use separate libraries for groups of cusps. 

NOTE: B-i-2 spoolers really pay off. 

CARE AND FEEDING 

1) Run $REORDER ( in B-i-2) frequently. 

2) Don’t create accounts unless you must-have extras 
created and extended. 

3) Keep a stash of contiguous space in [0.1]. 

4) Use contiguous files as much as possible. 

5) Print out and keep the DCN’s of all contiguous major files you 
worry about. 

6) Make all your discs from the image copy, so your MFD’s are 
identical and interchangable! 


centered, contiguous UFD’s 
contiguous, non-deletable 
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BEGINNER’S GUIDE TO 
MACRO 11 PROGRAMMING IN RSTS/E 

by Thomas Courtney. Mark/Ops. Inc., for the SENERUG Reference Library 


Chapter 1 
Introduction 

MACRO-11 is the assembly language for the POP family of computers. Recently, programming in 
MACRO-11 has become respectable in the RSTS/E community, and this guide is intended to heip you get 
started. You are going to need the foilowing pubiications: 

1. MACRO-11 Language Reference Manuai. 

2. PDP11 Processor Handbook for your machine. 

3. RSTS/E System Directives Guide. 

Actuaiiy. everything other than program listings can be found in these manuals somewhere, so the adven¬ 
turous may wish to proceed to them directiy. This guide is not intended to make you a wizard at programming 
in MACRO-11; it is intended to give you a notion of the structure of the machine you work on. and a firm 
understanding of how things (like i/0) get done. 


Chapter 2 

The General RSTS/E Environment 

To program in MACRO successfuily requires a different “worid view” from higher ievel ianguage program¬ 
ming. Instead of thinking of data and structure and programs as different entities, ail three merge into what is 
hopefuily a well ordered heap. After all. how can you expect to do a GET. or a PRINT or a FIELD in assembly 
language? For if assembly language programming is meant to put the programmer in direct contact with the 
machine, we would need a pretty sophisticated machine indeed to have such statements as these. 

The answer, of course, is that the PDP11 doesn't do all this. [See: "Technical Notes”, p. 66] However, it does some 
things pretty closely, and only waits for the program to put data in the proper locations, and make a call to the 
Monitor. These are called General Monitor Directives, and are things like .READ. .WRITE. .CCL. etc. Their locations 
are defined in the file COMMON.MAC. which comes in all RSTS/E kits, and an abbreviated form is in Appendix A. 

To RSTS/E. a MACRO job can occupy up to 17777 bytes of memory (all numbers are octal). The monitor 
directives get their data, and return some too. from the first thousand bytes of this memory. A mapping of 
this region looks like this: 


BYTE RANGE 

NAME 

DESCRIPTION 

0000-0057 


User Job image or runtime system. 

0060-0107 


used by Monitor to make the Job swappable. 

0110-0167 


used by Monitor to make the Job swappable. 

0170-0377 


default stack 

0400-0401 

KEY. USRSP 

defines Job status 

0402-0441 

FIRQB 

File Request Queue Block 

0442-0457 

XRB 

Transfer Control Block 

0460-0657 

CORCMN 

core common area 

0660-0733 


controlled solely by the Job. 

0734-0735 

USRPPN 

user project, programmer number. 

0736-0737 

USRPRT 

user default protection code. 

0740-0777 


user logical device name table. 
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MIS Professionals 


Seeking A Fruitful 
Career Opportunity? 


Consider A pple, 


At Apple Computer, we sincerely believe that our product—the 
personal computer—is the key to providing the 21st century indi¬ 
vidual with the personal power to deal with an increasingly com¬ 
plex society. In the four short years since our inception, we’ve 
developed the world’s leading personal computers. And we’ve cer¬ 
tainly been fruitful in doing so. In fiscal 1980 we grew 300%, and the 
future looks even better. 

Projected to reach sales of $5 billion by 1985, the personal 
computer industry promises unlimited growth, long-range stability 
and a wide variety of innovative challenges in a growing industry. 

-[ Systems Analysts 

-[ Programmer/Analysts 

The career implications for MIS professionals at Apple are limit¬ 
less. We’re offering solid opportunities to motivated analysts and 
programmers who are eager to operate in a dynamic, high growth 
environment. 

We have current openings at various levels, requiring one to 
five years experience and a Bachelor’s degree or equivalent. We’re 
especially interested in individuals familiar with DEC PDP-11/70,_ 
RSTS/E, and NCA software. 

Your career can bear fruit with Apple. We pay top salaries and 
offer one of the best fringe benefit programs in the San Francisco 
Bay Area. Please send your resume to Professional Employment, 
Apple Computer, Inc., 10260 Bandley Drive, Cupertino, California 
95014. 

'fkoppkz computer 

An Equal Opportunity Employer i 
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The sections of this area we are most interested in are the FIRQB and the XRB, since these areas are used 
in most Monitor-job communications. 


2.1 The FIRQB. 

The FIRQB (File Request Queue Block) contains the information used by the Monitor for I/O requests. 
Before you do most I/O requests, you have to load the FIRQB area with a variety of values. The general form of 
the FIRQB iS: 


OFFSET 

NAME 

HIGH BYTE LOW BYTE 

OFFSET 

NAME 

1 


returned status 

0 

FIRQB 

3 

FQFUN 

calfip/.uuo job number * 2 

2 

FQJOB 

5 

FQSIZM 

MSB file size channel number * 2 

4 

FQFIL.FQERNO 

7 


project programmer 

6 

FQPPN 

11 


file name (2 words in RADIX-50 form) 

10 

FQNAM1 

13 



12 


15 


file ext. (1 word in RADIX-50 form) 

14 

FQEXT 

17 


least significant bits of file size 

16 

FQSIZ 

21 


buffer length 

20 

FQBUFL.FQNAM2 

23 


mode 

22 

FQMODE 

25 


status flags 

24 

FQFLAG 

27 

FQPROT 

prot. code 0, high byte real 

26 


31 


device name (a ASCII characters) 

30 

FQDEV 

33 


0. unit real device unit number 

32 

FQDEVN 

35 


cluster size 

34 

FQCLUS 

37 


number of entries in directory lookup 

36 

FQNENT 


Most of these entries should be self explanitory. The major idea is that the programmer puts in informa¬ 
tion needed by whatever Monitor directive, makes the call, and retrieves whatever information the Monitor 
gave back. 


2.2 The XRB. 


The XRB is the other major area used for Monitor-job communications. Information specified here are 
things like the location and size of strings to be processed. The general format of the XRB is: 


OFFSET 

NAME 

HIGH BYTE LOW BYTE 

OFFSET 

NAME 

1 


buffer size in bytes 

0 

XRLEN 

3 


bytes transferred 

2 

XRBC 

5 


buffer address 

4 

XRLOC 

7 

XRBLKM 

MSB of block « channel ** * 2 

6 

XRCI 

11 


LSB of block ** 

10 

XRBLK 

13 


wait time for terminals 

12 

XRTIME 

15 


device modifier 

14 

XRMOD.XRBSIZ 


Again, almost everything is straightforward. XRTIME is set for terminal input only. If it is 0, the system 
will wait forever. If it is positive, that is the time it will wait for a response. If negative, it goes into "keyboard 
Monitor wait" state, which I have never used, but the Directives manual says is used for indirect command files 
by the Monitor. 


Chapter 3 

MACRO-11 Programming Basics 

MACRO-11 is a fairly complex assembly language, with over 400io instructions in the instruction set, 
eight register modes, and a variety of assembly time instructions. I am not about to explain all of it. quite 
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simply because I do not know all of it. Instead. I will attempt to explain the small subset of instructions I am 
going to use. 

A statement in MACRO-11 has the form 

label: operator operand, operand : comment 

the label and comment are not neccesary to the legality of the statement. Some operators require one or no 
operands. The types of assembiy statements fall into the foliowing general categories: 

1. Instructions: these are from the PDP11 instruction set. 

2. Directives: these are calls to the RSTS/E Monitor 

3. Data formatting: these reserve space for data. 

4. Output formatting: these controi listing results. 

5. Logical control: these instructions allow pieces of a program to be assembled independently. 

I will admit there are statements that do not fail into any of these categories. However. I will try not to use 
any of them here, and firmly believe that for the first shot, we wili have enough to chew on. 


3.1 The Instruction Set. 


These are the nitty-gritty machine instructions. As they say in the processor handbook of you choice, in¬ 
structions come in three fiavors: 

1. single operand — these are the operator operand instructions. The ones we will be using are: 

MNEMONIC ACTION 

CLR dst clears dst (destination) word 

CLRB dst ciears dst byte. 

TSTB tests dst. 


Basicaily. CLR and CLRB put a 0 in a location specified by the operand. TSTB (and oddly enough. TST) 
test a location and set the Processor Status word. The Processor Status word contains information on 
the current status of the machine. Instructions operate on bits 0-3 of this word, calied C. V. Z and N 
respectively. The C bit is set whenever an instruction caused a carry out of the most significant bit of 
the resuit. The V bit indicates an operation overflow. The Z bit is set whenever the result of an 
instruction is cleared. The N bit is set whenever the result of an operation is negative. In general, if the 
condition does not occur, then the appropriate bits are cieared. 


2. doubie operand — these are the operator operand, operand instructions. The ones we wiil use are: 

MNEMONIC ACTION 

MOV src. dst move source to dst. 

SUB src. dst subtract src from dst. 

3. program control — specifies specific actions to be taken by the processor. The ones we will use are: 

MNEMONIC ACTION 

BNE dst branch to dst if Z bit clear. 

JSR R. nam jump to subroutine nam 

RTS R return from subroutine. 


JSR and RTS aiso use a register, called the LINKAGE REGISTER. Upon executing the subroutine caii. the 
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current contents of the register are pushed onto the stack, and the return address is put into the 
register. Upon returning from the subroutine, the contents of the register are used for the return 
address, and its originai contents are restored and popped off the stack. 


3.2 Directives. 

As you now already know, the Monitor Directives interface between the Monitor and your job. We are oniy 
going to use five in the following examples: .READ, .WRITE, .FSS, CALFIP and .EXIT. 

1. .READ — this directive reads data from a file or a device previously opened on a channel. Since we re 
going to use the keyboard, there will be no need to open it. since it defaults to being channel 0. We will 
have to fill in the information on the XRLEN, XRBC, XRLOC, XRCI and XRBLK. We will get information 
back on .XRBLK. 

2. .WRITE — This directive writes to a file from a user buffer specified in the XRB. The data we must pass 
it are XRLEN. XRBC, XRLOC, XRCI and XRBLK. I’m not going to talk about what can be returned, since 
they are errors, and by the time you are ready to deal with them, you can look them up without much 
hassle. 

3. .FSS — the File String Scan directive. This allows you to set up the FIRQB automatically when opening a 
file. You can also use it to convert strings to RAD50 format. 

4. CALFIP — this command does all sorts of I/O related functions, like opening or closing files, 
assigning/deassigning devices, directory lookup and quite a bit more. We will use it to create a file, as a 
demonstration of how to set up the FIRQB using the .FSS directive. 

5. .EXIT — This returns control to the default runtime system. You need pass nothing to the call, and 
nothing is returned. 


3.3 Data Formatting. 

These statements reserve space for data, and sometimes put data into specific locations. The ones we will 
use are: 


MNEMONIC 


ACTION 

.BLKW 

1000 


reserves 1000 (octal) words of storage. 

.ASCII 

/Test/ 

15 12 

puts the ASCII characters T, e. s, t and <cr>. If 
into storage. 

.ASCIZ 

/Test/ 

15 12 

same as .ASCII but appends a null character to 
the end. 

.EVEN 



puts in an extra byte if program counter is odd. 


3.4 Output Formatting. 

These statements take care of how the assembly listing looks. 

MNEMONIC ACTION 

.TITLE Test causes the title "Test " to appear on every output 

page of the assembly listing. 

.IDENT /v07.1/ causes a version number to be added to the title. 

.PAGE causes a page eject in the assembly listing. 

•END nam end of source file input. If "nam ” is not null, then this is the entry point 

procedure. There can be only one entry point procedure built at task building 
time. 



IMMEDIATE DELIVERY 
11/70,11/34,11/23, LSI 


We Provide Systems, Add-ons, LSI, PDP11/34, and 11/70 
Installations and Maintenance RM02, RM03, RM04 

Call and ask us about our DEC RP02, RP03, RP06, RP07 
equivalent systems for: TE-10, TE-16, TU-45 


(408)732-4823 


WEX 


*DEC is a registered trademark of Digital Equipment Corporation 


West Coast 
Computer 
Exchange, Inc. 

248 Sobronte Way, Sunnyvale, CA 94086 
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3.5 Logical Control. 

These instructions ailow the deferring of several actions until link time. We will only use one such state¬ 
ment: 


.GLOBL NAMI, NAM2 causes NAM1 and NAM2 to be external global references. A label is declared 

GLOBL by using a double semicolon, e.g. label::. A mnemonic variable is made 
GLOBL by using a double equal sign. e.g. XRLEN = = 0. 


Chapter 4 

Registers and Addressing Modes. 

The PDP11 has eight general purpose registers for use in memory reference addressing. These registers 
can serve a variety of functions, from holding data to be played with, to containing pointers to pointers to ad¬ 
dresses. Two of the general registers, R6 and R7 (the others are RO—R5) have special functions. Register 6, 
called SP, is the hardware stack pointer. Register 7 contains the location of the next address to be executed, 
and is called PC or The secret of how all the registers are used is in their addressing modes. 

There are eight addressing modes, and these are all explained in the Processor Handbook. Even though 
they do it better than 1, here is a synopsis of what the story is: 

1. Mode 0. Register Mode. This uses the register as a simple accumulator. It is the fastest way to do 
things, whenever possible. 

INC R3 : adds 1 to the contents of R3. 

2. Mode 1, Register Deferred Mode. The address of the operand is stored in the register. 

INC (R3) : adds 1 to the contents of the address 

: specified by R3. 

3. Mode 2. Autoincrement Mode. Like Mode 1, but the register is incremented afterwards. It is incre¬ 
mented by 1 if you are using a byte instruction, and by 2 if you are using a word instruction. 

INC (R3)-h : adds 1 to the contents of the address 

; specified by R3. then increments R3 
: by 2. 

4. Mode 3, Autoincrement Deferred Mode. The contents of the address specified by the contents of the 
register are used as the address of the operand. The register is then incremented 1 or 2. for byte or 
word instructions respectively. The only way I can remember all of this one is to call it “pointer to a 
pointer" mode. 

INC @(R3)-h : adds 1 to the contents of the address 

: specified by the contents of the 
: address specified by R3, then 
: increments R3 by 2. 

5. Mode 4. Autodecrement Mode. This is the same as Autoincrement Mode, except it decrements the 
register before using its contents. 

INC -(R3) ; contents of R3 are decremented by 2. 

; the address specified by this number 
: are then incremented by 1. 


6. Mode 5, Autodecrement Deferred Mode. Similar to Autoincrement Deferred, but the register is decre¬ 
mented before anything else happens. 
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INC @-(R3) : R3 is decremented by 2. Adds 1 to the 

: contents of the address specified by 
; the contents of the address specified 
: by R3. 


7. Mode 6. Index Mode. The base address is added to the index word to get the address of the operand. 


INC 1000(R3) 


1000 is added to R3, and the contents 
of that address are incremented by 
1 


8. Mode 7, Index Deferred Mode. The base address is added to the index. The contents of the index is then 
used as a pointer to the address of the operand. 

INC @1000{R3) : 1000 is added to R3: and the address 

: pointed to by the contents of the 
: address in R3 are incremented by 1. 

There are also 4 modes associated with the use of the PC register. 

9. Mode 2. PC Immediate Mode. This is equivalent to autoincrement with the PC. 

ADD ^10. RO : the value 10 is added to RO. 

10. Mode 3, PC Absolute Mode. This is equivalent to autoincrement deferred mode with the PC. 

ADD ©^'lO, RO : adds the contents of location 10 to 

: RO. 

11. Mode 6. PC Relative Mode. This is the Index mode with the PC. 

ADD MSG. RO : adds the contents of MSG to RO. 

12. Mode 7, PC Relative Mode Deferred. This the Index deferred mode with the PC. 


ADD @MSG. RO 


the contents of the address specified 
by the contents of MSG are added 
to RO. 


... continued on page 88 


--MENU/AUTHORIZATION PROCESSOR SYSTEM- 

M/APS is a system to generate Application Menus and provide system security by controlling user access 

• Unlimited number of menu levels • Menu entry points may vary between users 

• Three levels of user authorization privileges • "Keywords" to jump between menus 

• Variable arguments passed between menu and program • Menus are all file driven 

• And more,,, 

Written in MACRO for RSTS E, RTI I, RSXIIM, And VAX 

CALL OR WRITE: (414) 784-8250 

-:-McHUGH, FREEMAN AND ASSOCIATES, INC.-— 

I 135 LEGION DRIVE • ELM GROVE, WISCONSIN 53122 


















page 34 March 1981 

RSTSPROFESSIONAli^STSPROf^lONALRSTSPROI^IONAli^STSPROFESSIONALRSTSPROFESSIONALRSTSPROFESSIONALRSTSPROf^lONAlJ^STSPROf^lONALRSTSPROFESSIONAlJlSTSPROF^ 


NEW PRODUCT. See our ad on page 35. 


QUE.11 — System Manager’s Guide 


SYSTEM FILES 

If the installation of QUE.11 has been sucessful you 
will have these files in your system ([1 ,x] is the QUE.11 ac¬ 
count): 

Queue control package: (The protection codes shown 
must be used) 

[1,x]QUE11.TSK<124> 

[1.x]0P.TSK<124> 

[l.xFEST.TSK <104> 

[1.x]LOAD.TSK <124> 

[1,x]SH0W.TSK<104> 

[1.x]SUBMIT.TSK<104> 

[1.x]D0.TSK<104> 

[1.X]CANCEL.TSK<104> 

Spooling package: 

$PRINT.TSK<104> 

$SP00L.TSK<232> 

$QUE.TSK<232> 

Print control files: (required for each print device) 
$N0RMAL.LP<40> 

$N0RMAL.LP0<40> 

In some systems the PRINT. SPOOL and QUE programs 
are held in the [1 .x] library instead of the $ account. This 
requires a minor alteration to the control files NORMAL.LP 
etc. Note that these control files must be kept in the $ 
library. 


SYSTEM STARTUP 

The only job which must be started is QUE11 .TSK. 
This may be run in any privileged account but the old (if 
any) QUE11.DAT file should be in the same account. 

When QUE.11 starts it prints a ?-mark. This can be 
answered in two ways: 

1. device specification 

2. detach statement (always last). 


Device Specification 

QUE.11 has an internal table with a list of all the 
physical devices configured in your system. This table is 


used to schedule queued Jobs which reserve devices and 
associated volumes. You may disallow the use of a class of 
devices by a command of this type: 

? MT:/bar 

You may add to the list of devices by giving the 
mnemonic of a new dummy’ device, like this: 

? CLASS: 

Dummy devices are a very powerful aid in job schedul¬ 
ing: they are described in detail later. 

Switches: /single /bar 

/clock 


Detach Statement 

This statement ends the initialization. After it is given 
QUE.11 searchs for a file called QUE11 .DAT which holds a 
list of any previously queued jobs. If the file does not exist 
in the account under which QUE.11 is running then a new 
one is set up automatically. 

Two switches may be used on the DETACH statement 
these are /LIST which prints the internal device table and 
ZPRLn which sets the QUE.11 priority. 

These two switches must be given in the order shown 
here: 

?DETACH/LIST/PRI:0 

Note that if you defined a dummy device at a previous set¬ 
up which is now omitted, an error may occur when the 
QUE11.DAT file is scanned. Any job which reserved the 
omitted device will be omitted; a message will be printed 
to warn you. 


CONCISE COMMAND LANGUAGE (CCLS) 

You should add this set of commands to the Concise 
Command Language (remember to alter the START.CTL 
files for INIT): 

CCL SHO-W = [1 .xjSHOW.TSK 
CCL SUB-MIT = [1 ,x]SUBMIT.TSK 
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CCL CAN-CEL = [1 ,x]CANCEL.TSK 
CCL DO- = [1 ,x]DO.TSK 
CCL LOAD- = [1,x]LOAD.TSK 
CCL OP- = [1.x]OP.TSK 

CCL PRI-NT = $PRINT.TSK 
CCL QUE-UE = $QUE.TSK:30000 

If PRINT.TSK and QUE.TSK are held in the [1 ,x] library 
then the $ in the commands above must be repiaced by 
[1.x]. 

The commands do not 
have to be as shown; any 
command verb wili be ac¬ 
cepted but the words 
shown here correspond 
with the User's Guide and 
the HELP options in the 
commands. [The PRINT 
command will override the 
Basic-Pius immediate 
mode PRINT statement 
(although will still 
work). SPOOL is recom¬ 
mended instead of PRINT 
in this case.] 


OUTLINE OF OPERATION 

QUE.11 processes requests by using pseudo-keyboards 
as the job consoies. It can process up to four batch streams 
at once if there are four PK:’s free in the system. 

Job scheduling is done by testing each job against the 
foilowing list of requirements which must be satisfied 
before the job wiii start: 


1. has the system room for another job? 

2. has QUE.11 


Announcing: 

QUE-ll 

ONE JOB SPOOLER FOR RSTS/E 
CONTROLS ALL SPOOLING 


REPLACES: 


• SPLIDL, SPLRUN . . . etc. 

• BATIDL, BAT RUN . . . etc. 

• QUEMAN, QUMRUN . . . etc. 

• OPSER, OPSRUN . . . etc. 

• ATPRO 

• ATPK 


CLOSE DOWN 

QUE.11 is ended by 
giving the OP CLOSE com¬ 
mand. This serves two pur¬ 
poses it shuts down the 
queue oniy when aii the 
current jobs have finished 
and it saves outstanding 
job requests in the 
QUE11.DAT file. If 
QUE11.DAT is stopped in 
any other way (by a KILL 
command, for instance) it 
is likely that some items in 
the queue wiii be iost. 

The SHUTUP program 
will not end QUE.11 pro¬ 
perly; the OP CLOSE com¬ 
mand should be given just 
before SHUTUP is started. 

The SYSTAT job table should be checked to make sure that 
QUE. 11 has stopped. A typical closedown might iook iike this: 

SYS/2 

2 [1,5] DetQUE.11 19/28K SL D02... 

Ready 
OP CLOSE 
Ready 
SYS/2 
Ready 

Run $SHUTUP 


QUE-ll: 

• One job controls all spooling 

• Saves small buffers and job slots 

• Spawns jobs as needed 

• Handles line printer and keyboard spooling 

• Controls as many BATCH JOBS as 

pseudo-keyboards 

• Full parameter replacement in QUE calls 

• "DO" command replaces indirect processors 

• Manuals available now 

• Program deliveries early in 1981 

• Only $995 single cpu license 

• Trial Version $100 

For more information contact: 

On Track Systems, Inc., P.O. Box 245, Ambler, PA 19002 
Phone: 215/542-7008 


a job 
(10 


slot free 
available)? 

3. is there a 
pseudo-keyboard 
free? 

4. has QUE.11 enough 
free I/O channels (1 
for immediate 
mode, 2 for batch 
or 3 for batch with 
a log file)? 

5. are the reserved 
devices free (not 
assigned and not 
opened)? 

6. are the required 
volumes (paper) 
loaded? 

Note that there is a 
maximum of 11 channeis 
at step 4. In immediate 
mode (DO command) oniy 
step 4 needs to be 
satisfied. 


STATE CODES 

The state column in 
the QUE.11 status report 
(SHOW command) uses the 
codes described here to in¬ 
dicate the reason why a job 
is waiting to run. 

The normai codes that may 
appear are: 


Q Wait 

request not yet scanned because some essentiai 
resource is unavaiiable. 

V Wait 

job requires one or more voiumes to be mounted 
D Wait 

job requires a device that is in use; it wiii run 
when the device becomes free. 

Abnormal codes are: 
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Exxx 

an unrecoverable error occured in starting the 
job (xxx is the RSTS/e error code). 

The operator should cancel requests which appear 
with the abnormal codes because they prevent later re¬ 
quests from running. 

DEVICE TABLE 

As explained already each job request may reserve up 
to five devices and associated volumes. These may be any 
of the physical or dummy devices . The job will not be 
started until all the devices are free and until they each 
have the required volume loaded on them. 

If a job reserves a device without a specific unit 
number (e.g MT:) the job wili run as soon as any device of 
the type required becomes available. 

The list of currently loaded volumes is altered by the 
load command which has this form: 

LOAD devrvolume 

e.g LOAD LPO:WIDE 

LOAD MT2:TAPE79 

No checking (except for discs) is done to see if the 
volume is actually the one loaded and It is the responsibility 
of the operator to ensure that the QUE.11 device list ac- 


WHEN YOU NEED 

DEC.. . 


TERMINALS 

• VT-100 • VT-103 
• LA34 • LA120 
• LA180 

PDP 11/03 
POP 11/23 
SYSTEMS 

LSI/11 MODULES 

Demand.. .Delivery 
Demand.. .Discounts 
Demand.. .UNITRONIX 


O iiifiiiix 

CORPORATION 

(201) 874-8500 

198 Route 206 ■ Somerville, NJ 08876 
TELEX: 833184 


curately reflects the state of the peripheral devices on the 
system. 

The current status of the device list may be found by 
typing 

SHOW D[evices] 
or SHOW V[olumes] 

Only the devices which are currently loaded will ap¬ 
pear. 


DUMMY DEVICES 

Dummy devices are treated by QUE.11 in almost ex¬ 
actly the same way as the real devices on the system. For 
example, suppose that CLASS: was set up as a dummy 
device. It could be used to schedule large, slow jobs to run 
at night or at some other convenient time. The request to 
QUE.11 would be: 

SUBMIT test for CLASS:NIGHT 
which might show in the status report as: 

Queue 

index Owner State Reserved Devices 

12.2 [11,9] VWait CLASS:NIGHT 

When the operator was ieaving in the evening the 
device CLASS: would be loaded with the volume' night: 

LOAD CLASS:NIGHT 

Remote job entry is an application where a real device 
may be ioaded with a dummy volume. The distant receiver 
might be given a mnemonic name which would be used 
when submitting jobs for transmission. These jobs would 
be released by loading the device RJ: with the mnemonic 
name. 

The main distintion between dummy devices and the 
real ones is that the dummy devices may be used by more 
than one job at the same time. Where this is undesirable it 
can be prevented by appending the /SINGLE switch to the 
device when QUE.11 is being started. 


SPOOLING OF PRINT FILES 

Print files are queued to the printer(s) by a package of 
programs (stored In the '$' account) which make use of the 
QUE.11 batch control facilities. The files are transfered to 
the printer by a program called SPOOL.TSK which is run 
under the control of a command file (also stored in the '$’ 
account). The name of this fiie is of special significance; it 
represents the type of paper required while the file name 
extension indicates the printer device. 

This filename convention is important; it the method 
by which the System Manager controls which devices may 
be used as queuable printers and the forms may be used on 
them. 
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For example, if your system has a printer LPO: and a 
terminal KB3: which is also to be used as a printer, you 
might provide these fiies: 

$NORMAL.LP $NORMAL.LPO 

$NARROW.LP $NARROW.LPO 

$NARROW.KB3 
$FORMX .KB3 

These fiies would allow normal and narrow paper to 
be used in the printer LPO: and narrow and FormX in KB3:. 
Notice that the fiie name extensions were given in two 
forms for LP: — this allows the user to specify the printer 
exactly (LPO:) or by the generic name (LP:) if the unit is 
unimportant. This does not matter if there is only one 
printer on your system. On a two printer system the .LP 
extension would allow files to be queued for either LPO: or 
LP1: (determined by QUE.11 when the job is scheduled). 

When a file is queued for printing with the PRINT or 
QUE programs a request is submitted to QUE.11 in the 
same way as a normal batch Job request. However the con¬ 
trol file is one of the special files described above. The 
printer and paper are reserved automatically and appear in 
the QUE.11 status report as for a batch Job. 

The name of the file(s) to be printed are given as a 
list of ‘parameters’ which cause some of the words in 
the command file to be replaced. The three words af¬ 
fected are: 

1. ^FS — the filename string (which may contain 
switches) 

2. *SK — replaced by Y if page skip is required; 

3. ^'RQ — used for REQUED information if 
necessary. 

SHOW n may be used to see the parameters for Job 
‘n’. 


PRINT COMMAND FILES 


The $NORMAL.LP file which is supplied should be 
used as a basis for new control files. The listing below 
gives the purpose of the lines in the control file. 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 


RUN $SP00L.TSK 
#FS — the file string 

8iV0L — the paper name 

133 — the paper width 

66 — the paper depth 

8192 — the open mode for the printer 

— name of a header file 
«SK — the SKIP option 

8iPPN — the requester's PPN 

*RQ — REQUE information. 


The following items are all subtituted when the file 
is read by QUE.11 at run time: 



C5R5 unlocks the true potential of your database: 

• Total reporting flexibility 

• Can access any database 

• Online, English query language 

• Suitable for non-technical users 


C3R5 Is available now for DEC PDP-11 computers. 
Call or write us for complete details. 





ENTERPRISE 

TECHNOLOGY 

CORPORATION 


305 Madison Avenue 
New York, NY. 10165 
(212) 972-1860 
Telex: 177959 
Cable: COMPUTERS 




^FS, &VOL. »SK. &PPN. ^RQ 


At line 7 a file name may be given; the contents of 
this file will be printed as part of a separator page at the 
begining of the printout. If this line is left blank no 
separator page appears. 

At line 6 the value 8192 stops a form-feed when the 
printer is closed at the end of the Job. See the RSTS/E 
programmers guide for information on other values. 

If the operator cancels a Job that has already started 
the Job is stopped and the paper is realigned. SPOOL 
assumes that the printer can handle form-feeds cor¬ 
rectly. 


SPOOL COMMANDS 

The operator can control printing by means of these 
commands: 

1. CANCEL n 

CANCEL dev: (e.g CANCEL LP:) 

Cancel the Job before or during printing. The 
second form may only be used when the Job has 
started to print. 

2. LOAD dev:paper 

used to tell QUE.11 that the paper has been 
changed. If the paper is changed while a Job is 













page 38 March 1981 

RSTSPROFESSK)NALRSTSPROFESSIONALflSrSPROrtSSIONAlJBTSPTOFESSIONALRSTSPBOFESSIONALRSTSPftOfESSIONALRSTSPBOFESSIONALRSTSPBOreSSIONALRSTSPROFESSIONAlJlSTSPBOfESSKDNALfiSrePROfESSK)NAlJ(^ 


actually running there is no effect until it 
finishes and the next job is selected. 

3. OP STATUS n 
OP STATUS LP: 

used to discover the state of the current job. This 
command and the following ones wiii only work 
while the specified job is actualiy using the 
printer, otherwise one of the errors 
?Job not in receive state 
?Device not controlled by QUE.11 
will occur. 

4. OP RESTART n B 
OP RESTART dev: B 

May be used to restart a printout at the begin¬ 
ning (omit B) or at a specified block. This may 
upset the page numbering if the /SKIP option 
was chosen. 

The SPOOL.TSK program waits when the print buf¬ 
fers are fuil. This can cause a delay when some of the 
commands above are given before a response is returned 
to the operator and action is taken by the program. The 
most affected commands are the OP commands. ^ 


REPRINTS 

REPRINTS 

REPRINTS 

REPRINTS 

REPRINTS! 

All content in this publication is 
copyrighted. 

All reprints must be purchased from 
M Systems, Inc. No other reprints are 
authorized. 

All reprints shall contain both a 
cover and a subscription blank. 

Price quotation available on request. 



MULTI-USER DATA ENTRY 

• Create, modify or verify 
data files 

• Extensive field editing 

• User friendly design 

• Extracts ISAM file data 

POWERFUL FEATURES 

• Dictionary-driven 

• Full logic support 

• CRT features supported 
blink, bold, underline, 
reverse video & cursor 


ON-LINE INQUIRY 

• Inquiry and/or update 
for ISAM files 

• Multiple ISAM files 

• User access control 

• Browse feature 

DEC INTERFACE 

• RSTS/E, RSX11M, RT11 

• RMS1 IK with secondary 
index support 

• Optional support for 
resident libraries 


RESULTS 

• Increased productivity 

• Macro-coded - FAST!!! 

• Single DEUS program 
replaces user data entry 
inquiry programs 

STRATEGIC DATA SYSTEMS 


4N310 Knoll Creek Drive 
St. Charles, IL 60174 
(312) 377-3396 























PDP II USERS 

WANT AN ALTERNATIVE? 
YOU CAN HAVE ONE 


with computer 
maintenance 



• Maintenance Provided on PDPII Systems 

• Mixed Vendor Systems Is Our Specialty 

• Servicing Most Major U.S. Cities 

Don’t wait untii your system is down again. 

For more information write or caii now! 

Return to: Tymshare Inc. • 1513 E. Del Amo Blvd. • Carson, CA 90746 or call 213-638-0574 


YOUR NAME 


YOUR TITLE . 


COMPANY NAME. 


ADDRESS. 


PHONE NO. 


□ I WOULD LIKE TO BE CONTACTED 
BY TYMSHARE TO DISCUSS MY 
MAINTENANCE NEEDS IN MORE 
DETAIL. 

□ I WOULD LIKE A PRICE QUOTE ON 
THE COST TO MAINTAIN MY 
COMPUTER SYSTEM 

TYPE OF MAINTENANCE COVERAGE 
YOU DESIRE (CHECK ONE) 

□ 8 am to 5 pm Monday through Friday 

□ 8 am to 8 pm Monday through Friday 
D 24 hour Monday through Friday 

D 24 hour, 7 days per week 
D Per Call Only 

CD Other — Please indicate below; 


MY PRESENT CONTRACT EXPIRES 


EQUIPMENT TYPE QUANITY EQUIPMENT TYPE QUANTITY 






































page 40 March 1981 

F^TSPROFESSIONALJ^ST5PROFESSIONALJ^STSPROFESSIONALRSTSPROF^SIONALRSTSPROF^IONALRSTSPROFESSIONALRSTSPROFESSIONALRSTSPROFESSIONALRST5PROF^IONALRSTSPROFESSIONALRSTSPROFESSIONALRSTSP 


0N20FF.B2S 

By Dave Schott 


2 

3 

4 

5 

6 

11 


20 


30 

100 


999 

1000 


1010 

1020 


1030 


1040 


1050 


Program 

Version 

Edit 

Edit Date 
Author 


0N20FF.B2S 

7.0 

07 

lO-Nov-80 
Dave Schott 


& 


Able Communications & Systems, Inc. & 

1197 North Tustin Avenue & 

Anaheim, CA 92807 & 

(714) 632-0220 & 

& 

& 


This software is furnished free of charge to RSTS/E sites. It & 
may be distributed and copied to any site so long as there is no & 
direct commercial profit derived from such distribution. & 

& 

Although this software has been tested and is believed to be & 
error-free, neither ACSI nor the author assume responsibility & 
for the use or reliability of the software. & 

& 

Any problems with the software should be reported to the author & 
at the address above, although support of the software is not & 
guaranteed. & 

& 


1055 


1060 


1070 


\ ERRFLAG% =0% & 

\ GOTO 1040 S- 

& 

GOTO 1060 IF KB% > 0% AND KB% <» MAX.KB% & 

1 make sure it's a legal keyboard & 

\ PRINT "You cannot change the console (KBO:)" IF KB% =0% & 

\ PRINT "Keyboard # ";KB%;" is not configured on this system" & 

IF KB% <> 0% «. 

\ GOTO 1040 & 

I tell user of the goof - and reprompt & 

KB% = KB% * 2% «. 

\ KB.DDB% = PEEK(KBO.DDB% + KB%) & 

! get the requested keyboard's DDB. & 

\ TTINTF% = PEEK(KB.DDB% + 30%) & 

! ..and it's terminal interface flag & 

\ PRINT "This keyboard is currently set to "; & 

\ PRINT "modem." IF (TTINTF% AND 16384%) & 

\ PRINT "local." UNLESS (TTINTF% AND 16384%) & 

! tell the user how it's currently setup as & 

PRINT "Change this line to LOCAL/MODEM <Modem> "; & 

\ 1$ = FNI$ UNLESS ERRFLAG% & 

\ GOTO 1080 UNLESS ERRFLAG% & 

\ ERRFLAG% =0% & 

\ GOTO 1040 & 


MODIFICATION HISTORY 


& 

& 

& 

& 


VER/ED EDIT DATE REASON & 

& 

& 


GENERAL DESCRIPTION 

0N20FF will turn ON/OFF the modem bit on the requested 
keyboard line. This is accomplished by re-writing the 
TTINTF (terminal interface flag) of the requested 
keyboard line. Since this program does poke memory it 
can only be ran sucessfully from [1,1] 

MAIN CODING 


& 

& 

& 

& 

& 

& 

& 

& 


1080 MODEM% = -1% & 

\ MODEM% = NOT(ASCII(CVT$S(I$,32%)) = 76%) IF LEN(I$) & 

1 the default is MODEM unless the user requested & 

! LOCAL status & 

& 

1090 GOTO 32767 IF MODEM% AND (TTINTF% AND 16384%) & 

1 what? the user requested to change to a MODEM status & 

! on an already MODEM line - scram & 

\ GOTO 32767 IF NOT(MODEM%) AND (TTINTF% AND 16384%) <> 16384% & 

\ NEW.TTINTF% = TTINTF% OR 16384% IF MODEM% & 

\ NEW.TTINTF% = NOT(NOT(TTINTF%) OR 16384%) IF NOT(MODEM%) & 

2000 POKES = CHR$(6%) ! FIP call code & 

+ CHRS(-6%) I POKE memory & 

+ CHR$(KB.DDB% -t- 30%) i address to POKE at & 

+ CHR$(SWAP%(KB.DDB%+30%))1 swap of the above address & 
+ CHR$(NEW.TTINTF%) 1 value to POKE & 

+ CHR$(SWAP%(NEW.TTINTF%))1 swap Of the value & 

& 


ON ERROR GOTO 19000 & 

! establish the standard error handling & 

\ PRINT IF CCPOS(0%) <> 0% & 

1 return KB to left margin & 

\ ID$ » "V7.0-07" & 

1 set up the version ID tag & 

PRINT "0N20FF";CHR$(9%);ID$;CHR$(9%); & 

CVT$$(RIGHT(SYS(CHR$(6%)+CHR$(9%)+CHR$(0%)),3%),4%) & 

1 indentify ourself w/version ID tag & 

DIM MONITORl%(30%),MONITOR2%(30%) & 

\ CHANGE SYS(CHR$(6%)+CHR$(-3%)) TO MONITORl% & 

1 first part of the monitor tables & 

\ MONITORl%(1%) = MONITORl%(1%) + SWAP%(MONITORl%(I%+1%)) & 

FOR 1% = 5% TO 29% STEP 2% & 

! swap those bytes that need to be & 

\ CHANGE SYS(CHR$(6%)+CHR$(-12%)) TO MONITOR2% & 

1 second part of the monitor tables & 

\ MONITOR2%(1%) = MONITOR2%(1%) + SWAP%(MONITOR2%(1% +1%)) & 

FOR 1% = 3% TO 29% STEP 2% & 

1 swap here also & 

& 

MAX.KB% = MONITORl%(3%) & 

1 maximum # of keyboard on this system & 

\ DEVOKB% = MONITOR2%(9%) & 

\ DEVPTR% = MONITORl%(7%) & 

\ KB0.DDB% = PEEK(DEVPTR% + DEVOKB%) & 

1 KBO: DDB & 

& 

PRINT "Keyboard #: "; & 

I request a keyboard line & 

\ KBS = FNIS UNLESS ERRFr,AG% & 

\ GOTO 1050 UNLESS ERRFLAG% & 

\ GOTO 32767 & 

KB% = VAL(KB$) UNLESS ERRFLAG% & 

1 get the keyboard into correct form & 

\ GOTO 1055 UNLESS ERRFLAG% & 

\ PRINT ERTS(ERRFLAG%) & 

! let the user know of an error & 


2010 TS = SYS(POKES) UNLESS ERRFLAG% & 

1 POKE it & 

\ GOTO 2020 UNLESS ERRFLAG% & 

\ PRINT "You must be in account [1,1]" IF ERRFLAG% = 10% & 

\ PRINT ERT$(ERRFLAG%) IF ERRFLAG% <>10% & 

\ GOTO 32767 IF ERRPLAG% & 

! let the user know if an error occurs during the POKE & 

! and just scram & 

2020 PRINT "Change sucessful." & 

\ GOTO 1040 & 

1 let the user know everything is OK. & 

19000 ERRFLAG% = ERR & 

\ ERRLINE% = ERL & 

\ ERRPROGS = ERN$ & 

\ RESUME IF ERRLINE% < 10000% OR ERRLINE% > 28999% & 

\ RESUME 19010 & 

19010 RETURN & 

! & 

1 MASTER ERROR ROUTINE & 

1 If the error occurred in the main program just resume & 

! to the offending line. If an error occurred within a & 

! subroutine then return from the subroutine with ERRFLAG% & 
1 set to indicate subroutine failure. & 

! & 

20000 DEF FNI$ s. 

! get a line of input from the keyboard & 

\ GOSUB 20010 & 

\ FIELD #0%, RECOUNT AS X$ & 

\ FNIS = "" & 

\ FNIS = CVTSS(XS,5%) UNLESS ERRFLAG% & 

\ GOTO 20020 & 

20010 GET #0% 6 

\ RETURN & 

20020 FNEND & 

& 

32767 END & 
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1 

10 


90 

100 

200 

900 

1000 

1020 

1040 

1200 

1220 

1240 

1280 

1600 

1880 

2000 

2020 

2040 


2060 


2064 

2080 

2100 

2140 

2190 


FICHE.BAS 

By Scott Banks and Dave Mallery 


EXTEND 

FICHE.BAS fi. 

& 

GENERALIZED FICHE TAPE GENERATOR & 

& 

THIS PROGRAM WILL TAKE ONE OR MORE ASCII PRINT FILES & 

FOR INPUT AND CREATE AN EBCDIC MAGTAPE SUITABLE FOR FICHE & 

PRODUCTION. & 

& 

EACH INPUT FILE IS SEPARATED BY A SINGLE (EOF) TAPE & 

MARK. THE TAPE IS WRITTEN AT 1600 BPI. 6 

& 

THE OUTPUT TAPE UNIT IS REQUESTED AT RUN TIME. & 

FILE NAMES ARE INPUT PARAMETERS ALSO. SWITCHES ALLOW OUTPUT & 
FORMAT CHANGES. AN INDIRECT COMMAND FILE MAY BE SPECIFIED. 6 

& 

SWITCHES MUST APPEAR ON INDIVIDUAL LINES. THEY REMAIN & 
IN EFFECT UNTIL ANOTHER OCCURS. THE FOLLOWING ARE ALLOWED, & 
SHOWN WITH THEIR DEFAULT VALUES; & 

& 

PROVIDES 132 COLUMNS (133 W/PRINT CTRL) & 

& 

TAPE WRITTEN WITH 20 LOGICAL RCRDS/BLK & 

& 

REWIND-AND-OFFLINE WHEN ALL DONE JOB & 

(USE 'RW:NO' TO CANCEL THIS) & 

& 

ALLOW LOWER CASE LETTERS & 

(USE 'LC:NO' TO FORCE THEM TO UPPER) & 

& 

IF AN INDIRECT COMMAND IS TO BE USED, IT IS ENTERED & 

IN RESPONSE TO THE FIRST INPUT FILE REQUEST. THE FORMAT: & 

& 

@<filespec> AN EXTENSION OF '.CMD' IS THE DEFAULT & 

GOSUB 19600 


DIM LST.CTL$(127), LST.TXT$(127) & 

I 


F.CMX% = 1% 


1 FOR CMD FILE 

& 

\ F.LST% » 2% 



& 

\ F.MAG% = 3% 



& 

\ F.CMD% = KB% 


! ASSUME KB; 

& 

PRINT #KB% 



& 

\ PRINT iKB%, ' 

■Fiche VI.2' 


& 

\ PRINT #KB% 



& 

GOSUB 2000 


! OPEN MAGTAPE 

& 

GOSUB 4000 


1 DEFAULT PARAMETERS 

& 

GOSUB 5000 


! SET UP EBCDIC XLATE 

& 

GOSUB 3000 


! GET NEXT FILESPEC 

& 

\ GOTO 1600 IF 

E% 


& 

GOSUB 4200 


I SETUP WORK AREA 

& 

GOSUB 4400 


1 BUILD TAPE 

& 

GOTO 1200 



fit 

GOSUB 2800 


1 CLOSE MAGTAPE 

fit 

GOTO 32767 



fit 


OPEN MAGTAPE & 


/RL:132 

/BL:20 

/RWiYES 

/LCiYES 


PRINT #KB%, 'Magtape? & 

\ INPUT iKB%, F.MAG$ S. 

! DO FILENAME STRING SCAN TO SET FLAG WORD 2 S. 

1 & 

MAG.FL2% = SWAP%(CVT$%(RIGHT( ! ERR -> 2100 & 

! FILENAME SCAN & 

SYS(CHR$(6%)+CHR$(-10%)+F.MAG$),29%))) ! FLAG WORD 2 & 

\ GOTO 2140 IF MAG.FL2% AND 2047% 1 NO NAMES & 

OR MAG.FL2% < 0% I BAD LOGICAL & 

\ GOTO 2140 UNLESS MAG.FL2% AND 8192% ! GOOD DEVICE & 

\ GOTO 2140 UNLESS (STATUS AND 255%) * 14% ! = MAGTAPE & 

! 

OPEN F.MAG$ FOR INPUT AS FILE F.MAG%, I ERR -> 2100 & 

RECORDSIZE 8192%, MODE 256% 6 

\ GOTO 2140 UNLESS STATUS AND 256% I DEMAND NFS & 

\ Z% = MAGTAPE(7%,0%,F.MAG%) ! MAG STATUS & 

\ IF Z% AND (1024% + 512% + 32%) & 

THEN E% = 14% ! HUNG OR WRITE LOCKED & 

\ GOTO 2100 & 

I 

IF (Z% AND 256%) =0% & 

THEN PRINT #KB%, 'Warning - tape not at load point' & 

\ PRINT #KB% & 

1 

GOTO 2190 & 

I 

PRINT #KB%, FNE$(E%); ' - '; F.MAG$ ! HANDLE ERRORS & 

\ GOTO 32767 & 

I 

PRINT #KB%, '?Non-file-structured magtape required' & 

\ GOTO 32767 S. 

1 

RETURN S. 


! 


2800 

1 

CLOSE MAGTAPE 


& 

2820 


E% » MAGTAPE(1%,0%,F.MAG%) ! 

REWIND AND OFF-LINE 

& 



IF MAG.RWD% 


6 


\ 

CLOSE F.MAG% 


6 

2990 


RETURN 


fit 

3000 

1 

GET NEXT INPUT FILESPEC 


& 

3020 

* 

E% = 0% 


& 


\ 

' 

PRINT #KB%, 'Input file? IF F.CMD% = 

KB% 

fit 

3030 


INPUT LINE #F.CMD%, Z$ 1 

EOF -> 3190 

fit 


\ 

F.LST$ = CVT$$(Z$,-l%-64%) 


fit 


\ 

PRINT #KB%, •—> '; F.LST$ 


& 



UNLESS F.CND% » RB% 


& 

3040 

* 

IF LEFT(F.LST$,1%) * '@' 1 

INDIRECT CMD FILE 

fit 



THEN F.CMD$ - RIGHT(F.LST$,2%) 


fit 


\ 

GOSUB 3200 1 

OPEN CMD FILE 

6 


\ 

' 

GOTO 3020 


fit 

3050 


GOTO 3100 UNLESS LEFT(F.LSTS,1%) = '/' 

1 A SWITCH? 

fit 


\ 

IF LEFT(F.LST$,4%) » '/RL;' 

1 RECORD LENGTH 

& 



THEN LST.LEN% « FNVAL(RIGHT(F.LST$,5%)) 


fit 


\ 

GOTO 3090 IF LST.LEN% < 1% 


fit 



OR LST.LEN% > 255% 


& 


\ 

GOTO 3020 


& 

3060 

* 

IF LEFT(F.LST$,4%) * '/BL;' 1 

BLOCKING FACTOR 

& 



THEN LST.BLF% » FNVAL(RIGHT(F.LST$,5%)) 


fit 


\ 

GOTO 3090 IF LST.BLF% < 1% 


fit 



OR LST.BLF% > 128% 


& 


\ 

GOTO 3020 


& 

3070 


IF F.LST$ = '/RW:NO' 1 

NO REWIND REQUEST 

fit 



THEN MAG.RWD% = 0% 


fit 


\ 

GOTO 3020 


fit 

3072 

* 

IF F.LST$ = '/RW:YES' 1 

REWIND WHEN DONE JOB 

& 



THEN MAG.RWD% - -1% 


fit 


\ 

GOTO 3020 


& 

3080 


IF F.LST$ = '/LC;YES' 1 

ALLOW LOWER CASE 

fit 



THEN TBL.LOW% - -1% 


& 


\ 

GOSUB 5000 1 

BUILD XLATE TABLE 

fit 


\ 

GOTO 3020 


fit 

3082 


IF F.LST$ « '/LC;NO' 1 

FORCE ALL UPPER CASE 

fit 



THEN TBL.LOW% « 0% 


& 


\ 

GOSUB 5000 ! 

BUILD XLATE TABLE 

fit 


\ 

' 

GOTO 3020 


fit 

3090 


PRINT #KB%, '?lllegal switch or value - 

'; F.LST$ 

fit 


\ 

GOTO 3020 


fit 

3100 


OPEN F.LST$ FOR INPUT AS FILE F.LST%, 

1 ERR -> 3180 

& 



RECORDSIZE 4096%, 

fit 



MODE 8192% 

fit 

3160 


GOTO 3190 


fit 

3180 


PRINT iKB%, FNE$(E%); ' '; F.LST$ 

! HANDLE ERRORS 

& 


\ 

1 

GOTO 3020 


fit 

3190 


RETURN 


fit 

3200 

1 

1 

OPEN INDIRECT COMMAND FILE 


St 

3220 


F.CMD% = F.CMX% ! 

SAY IT'S THERE 

& 


\ 

F.CMD$ = F.CMD$ + '.CMD' ! 

DEFAULT EXTENSION 

fit 



UNLESS INSTR(1%,F.CMD$, ' . ' 

) 

fit 

3240 


OPEN F.CMD$ AS FILE F.CMD%, MODE 8192% 

I ERR -> 3300 

fit 

3280 


GOTO 3390 


fit 

3300 


PRINT #KB%, FNE$(E%); ' - '; F.CMD$ 

! HANDLE ERRORS 

& 


\ 

GOTO 32767 


fit 

3390 


RETURN 


& 

4000 

1 

1 

DEFAULT PARAMETERS 


& 

4020 


LST.LEN% =132% 1 

LINE LENGTH (NOT 

& 



I 

INCL PRINT CTRL) 

fit 


\ 

LST.BLF% = 20% ! 

BLOCKING FACTOR 

fit 


\ 

MAG.RWD% = -1% ! 

REWIND WHEN DONE 

fit 


\ 

TBL.LOW% = -1% 1 

ALLOW LOWER CASE 

& 

4190 


RETURN 


& 

4200 

! 

SETUP WORK AREA 


& 

4220 

' 

LST.CNT% = (LST.LEN% + 1%) * LST.BLF% 


fit 

4240 


FIELD #F.MAG%, LST.CNT% AS LST.BUF$ 

fit 


\ 

FIELD #F.MAG%, (LST.LEN% + 1% ) * 

1% AS D$, 

& 


1% AS LST.CTL$(I%), & 

LST.LEN% AS LST.TXT$(I%) & 
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Fully 

compatible 

systems peripherals 


NRWM05 

300 MB & controller 

$20,500 

NRJM05 

300 MB & controller 

$18,800 

NRM05 

300 MB slave drive 

$13,600 

NRWP06 

200 MB & controller 

$19,600 

NRJP06 

200 MB & controller 

$17,900 

NRP06 

200 MB slave drive 

$12,600 

NRWM03 

80 MB & controller 

$14,800 

NRJM03 

80 MB & controller 

$13,100 

NRM03 

80 MB slave drive 

$ 7,900 

NTJ45 

45 IPS type & controller 

$ 7,300 

NTJ75 

75 IPS type & controller 

$ 8,600 

NTJ125 

1251 PS type & controller 

$ 9,800 


O 


11 /70,11 /44,11 /34,11 /23, VAX systems 

INI O R DATA 

Nationwide installation and maintenance 
443327th Ave. W., Seattle, WA 98199 

Toll Free 800-426-2929 In Washington 206-282-1170 


DEC 

RSTS/E USERS 

From one of the pioneers in commercial 
data processing using RSTS. Off the shelf 
software ready for immediate delivery. 
Completely interactive. Extensively 
documented. Fully supported. Ideal for 
OEM’s, service bureaus or end users. 
Cost effective solutions including: 

• ACCOUNTS PAYABLE 

• GENERAL LEDGER 

• FINANCIAL REPORTING 

• ACCOUNTS RECEIVABLE 

• PAYROLL 

• FIXED ASSETS 

For complete details, contact us at: 

PlycooB services, inc. 

P.O. Box 160 
Plymouth, IN 46563 
(219) 935-5121 



FOR 1% - 0% TO LST.BLF% - 1% 


4390 

4400 

4420 

4440 

4460 

4480 


4520 

4580 

4590 

4600 

4620 


4720 

4740 


4780 

4790 

4800 

4840 

4880 

4990 

5000 

5020 


BUILD TAPE 

LSET LST.BUF$ « " 

FOR I.LST% - 0% TO LST.BLF% - 1% 

INPUT LINE #F.LST%, LST.LIN$ 

LSET LST.CTL$(I.LST%) « *1' 

IF ASCII(LST.LINS) - 12% 
LSET LST.TXTS(I.LST%) « LST.LIN$ 

NEXT I.LST% 

GOSUB 4600 
GOTO 4420 

GOSUB 4600 IF I.LST% 


CLOSE F.LST% 

GOSUB 4800 

STOP UNLESS MAGTAPE(5%,2%,F.MAG%)-1% 
FOR 1% - 1% TO 2% 


I EOF -> 4500 


1 XLATE, PUT TO MAGTAPE & 


I XLATE, PUT TO MAGTAPE k 
1 IF PARTIAL BUFFER & 


I DONE THIS LISTING 


1 WRITE 3 EOF MARKS 
I BACKSPACE 2 OF 'EM 


TRANSLATE TO EBCDIC, PUT TO MAGTAPE 

LSET LST.BUFS - XLATE(LST.BUF$,TBL.EBC$) 
PUT #F.MAG%, COUNT LST.CNT% 

GOTO 4790 


I EOT -> 4700 


GOSUB 4800 

PRINT *KB%, 'Mount next reel on 
E% » MAGTAPE(1%, 0%, P.MAG%) 
SLEEP 5% 

Z% - MAGTAPE(7%, 0%, F.MAG%) 
GOTO 4740 IF Z% AND 32% 


! WRITE 3 EOF MARKS 
'; F.MAG$ 


1 REWIND AND OFFLINE 


1 GET DEVICE STATUS 
1 TILL ONLINE AGAIN 


IF 

THEN 


Z% AND 1024% 
PRINT #KB%, 
GOTO 4720 


I WRITE-LOCKED 


'Remove write ring on ; F.MAG$ 


IP (Z% AND 256%) = 0% 1 DEMAND LOAD-POINT 

THEN PRINT iKB%, F.MAGS; ' not at load-point' 

GOTO 4720 

PRINT #KB%, 'Tape was successfully mounted on '; P.MAG$ 
RETURN 

WRITE 3 EOF MARKS, EVEN ACROSS PHYSICAL EOT 
FOR 1% - 1% TO 3% 

Z% » MAGTAPE(2%, 0%, F.MAG%) I EOT -> 4880 

NEXT 1% 

RETURN 

SETUP ASCII-EBCDIC TRANSLATE TABLE 


TBL.NUMS 

TBL.NUMS 


TBL.LETS 

TBL.LETS 


TBL.NUMS + CHRS(I%) 

FOR 1% = 240% TO 249% 


TBL.LETS + CHRS(I%) 

FOR 1% * 193% TO 201% 
TBL.LET$ « TBL.LETS + CHR$(I%) 


1 NUMBERS 0-9 

I LETTERS A-I 
1 LETTERS J-R 


\ TBL.LETS 


\ TBL.LOWS 
\ TBL.LOWS 


\ TBL.LOWS 
\ TBL.LOWS 


\ TBL.LOWS 
1 

TBL.EBCS 


FOR 1% 
TBL.LETS + 
FOR 1% 

TBL.LOWS 4 
FOR I%» 
TBL.LOWS 4 
FOR 1% 
TBL.LOWS 4 
FOR 1% 


• 209% TO 217% 
CHR$(I%) 

- 226% TO 233% 

CHRS{I%) 

129% TO 137% 
CHR$(I%) 

• 145% TO 153% 
CHR$(I%) 

162% TO 169% 


TBL.LETS UNLESS TBL.LOW% 


\ TBL.EBCS 


5190 

19600 



STRINGS(32%,64%) 

! 0- 31 

CTRL CHARS 

& 

4 

CHRS( 64%) 

4 

CHRS( 90%) 

! 32- 33 


& 

4 

CHRS(127%) 

4 

CHRS(123%) 

! 34- 35 

- * 

& 

4 

CHRS( 91%) 

4 

CHRS(108%) 

! 36- 37 

S % 

& 

4 

CHRS( 80%) 

4 

CHRS(125%) 

I 38- 39 

i ' 

& 

4 

CHRS( 77%) 

4 

CHRS{ 93%) 

! 40- 41 

( ) 

& 

4 

CHRS{ 92%) 

4 

CHRS( 78%) 

! 42- 43 

* 4 

& 

4 

CHRS(107%) 

4 

CHRS( 96%) 

1 44- 45 

, - 

& 

4 

CHRS( 75%) 

4 

CHRS( 97%) 

! 46- 47 

. / 

& 

4 

TBL.NUMS 



I 48- 57 

NUMBERS 

& 

4 

CHRS(122%) 

4 

CHRS( 94%) 

! 58- 59 

• ; 

& 

4 

CHRS{ 76%) 

4 

CHRS(126%) 

! 60- 61 

< - 

& 

4 

CHRS{110%) 

4 

CHRS(111%) 

I 62- 63 

> ? 

& 

4 

CHRS{124%) 



1 64 

0 

& 


TBL.EBCS 4 

TBL.LETS 

I 65- 90 

LETTERS 

& 

4 

CHRS{173%) 

4 

CHRS(224%) 

1 91- 92 

( \ 

& 

4 

CHRS(189%) 

4 

CHRS( 95%) 

1 93- 94 

I ; 

& 

4 

CHRS( 96%) 

4 

CHRS{125%) 

! 95- 96 


& 

4 

TBL.LOWS 



! 97-122 

LOWER CASE 

& 

4 

CHRS(139%) 

4 

CHRS(106%) 

! 123-124 

{ 1 

& 

4 

CHRS(155%) 

4 

CHRS(161%) 

1 125-126 

} - 

& 

4 

CHRS{ 64%) 



! 127 

RUBOUT 

& 

; > 

TBL.EBCS 4 

TBL.EBCS 

1 128-255 

(PARITY BIT) 

& 

S T A N D A R 

D 

I N I T I A 

L I Z A T 

ION- 

& 

& 


LETTERS S-Z 


LOWER CASE A-I 
LOWER CASE J-R 


LOWER CASE S-Z 
FORCE TO UPPER CASE 


! 

!> — 

ON ERROR GOTO 19800 
\ KB%=12% 

\ OPEN 'KB:' AS FILE KB%, 
\ RETURN 
1 


19800 

I>- 

E%=ERR 

- L 0 

c / 

^ L E R 

R 0 

R T R 

APS — 

i 

19810 

RESUME 

2100 

IF 

ERL-2040% 




1 MM: SYSO SCAN 

19812 

RESUME 

2100 

IF 

ERL-2060% 




1 MM: OPEN 

19820 

RESUME 

3190 

IF 

ERL-3030% 

IF 

E%»11% 


1 KB: EOF 

19830 

RESUME 

3180 

IF 

ERL-3100% 




1 LISTING EOF 

19840 

RESUME 

3300 

IF 

ERL-3240% 




1 CMD FILE OPEN 

19850 

RESUME 

4500 

IF 

ERL«4440% 

IF 

E%-11% 


t LISTING EOF 

19860 

RESUME 

4700 

IF 

ERL-4620% 

IF 

E% = 4% 


1 MAGTAPE PUT 

19870 

RESUME 

4880 

IF 

ERL-4840% 

IF 

E%=4% 


1 WRITE MAG EOF 

19990 

GOTO 32000 






1 

20000 

1 >- 

“ S T 

& M n A D r> 


0 U T I 



20060 

! 

!> FNVAL 


COMPUTES VALO 

, ERROR 

N E S 

IN E% 

( 


1 ERR »> 20068 


20068 

32000 


32020 

32500 


32560 

32767 


1 

DEF FNVAL(ZS) 

\ E%, FNVAL » 0% 

\ FNVAL » VAL(ZS) 

! 

FNEND 

! 

!> - 
! 

RESUME 20068 IF ERL>20060% 

ON ERROR GOTO 0 s, 

\ STOP & 

I 

DEF FNES(E%)»CVTSS(RIGHT(SYS(CHRS(6%)4CHRS(9%)4CHRS{E%)),3%),5%) 


STANDARD ERROR TRAPS - s 

1 FNVAL 


END 
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RSTS/E MONITOR INTERNALS 

PART 1 

By Mike Mayfield, Northwest Digital Software, Box 2-743, Newport, WA 99156 


For many years RSTS users have been pleading with 
DEC to produce a manual describing the internal work¬ 
ings of the RSTS/E monitor. However, DEC is in a dif¬ 
ficult position. If they published such a manual some 
people would complain if DEC later made something in 
the monitor incompatable with the current version. 

This is where we in the user community come in. I’m 
willing to share some of the information I’ve gathered in 
my work with RSTS over the past eight years. I hope this 
information proves useful. 

This is the first of four articles that will describe the 
internals of RSTS/E V7.0. All the major functions will be 
described, including Job control, memory control and file 
and device handling. 

The articles will be broken into four parts as 
follows: 

Part 1: 1. Job Control 

JOBTBL—Job table 

JDB—Job data block one 

JDB2—Job data block two 

lOB—I/O data block 

WRK—Work block 

Fixed memory locations 

JBSTAT, JBWAIT—Job status tables 

Part 2: 2. Memory Control 

MCB—Memory control sub-block 
MEMLST, RESIST—Memory control lists 
RTS—Runtime system descriptor block 
NULRTS—Disappearing RSX RTS 
RTSLST—RTS control list 
LIB—Resident library descriptor block 
LIBLST—Library control list 
WDB—Window descriptor block 

Part 3: 3. File Control 

SCB—Small file control block 
FCB—Large file control block 
FCBLST—File control list 
WCB—Window control block 

4. Device Control 
DDB—Device data block 
DEVNAM—Device name table 
DEVCNT—Device unit count table 
DEVPTR—Device pointer table 
DEVTBL—Device retrieval table 
LOGNAM—Logical device name table 
UNTCNT—Disk status table 


Part 4: 5. Send-Receive 

RIB—Receiver ID block 
ERLRIB—ERRLOG RIB block 
SNDLST—Receiver control list 
PMB—Pending message block 

6. Concise Command Language 
CCL—CCL definition block 
CCLLST—CCL control list 

7. Miscellaneous 

Since the information described in these articles is 
intended primarily for systems programmers it will be 
presented in the form of a reference manual. My 
apologies to those of you who are just looking for a 
general understanding of RSTS and come away bleary- 
eyed. 

If you plan to use this information to access monitor 
table information from an application program please 
remember that DEC may change this information at any 
time, so write your programs accordingly. They’ve 
changed things in every release so far. There’s no reason 
to think they won’t do it again. 

Enough said. Let’s get inside RSTS. 


1.0 JOB CONTROL 

RSTS can support up to 63 simultaneous jobs. Each 
of these jobs can be either a user at a terminal or a 
detached program. The job control structures allow 
RSTS to share resources (such as CPU time) properly 
among all users. In addition they provide the means to 
access the information necessary for almost every other 
service provided by the monitor, such as device and file 
handling. 

For example, the scheduler uses the information in 
the job descriptor block to determine which job to run 
next and what run burst to assign it. The memory 
manager uses the memory control sub-block and the 
residency quantum to set up the memory mapping 
registers and perform swapping, if necessary. 

The job control structures consist of a combination 
of tables and blocks. The size of the tables is determined 
by the number of jobs specified at sysgen time. The size 
of a block is typically 16 words. 

The tables contain one word for each possible job on 
the system. As new jobs are created and removed, infor- 
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mation in the tables is changed but the size of the tables 
remain the same. 

The job control blocks, on the other hand, exist only 
while a job exists. They are created (from small buffers) 
when a job is first created and deleted when the job is 
removed (ie. by logging out). 

The location of specific tables can be determined us¬ 
ing the GET MONITOR TABLES SYS calls. Once you know 
where a table starts, the values within the table can be 
accessed by adding the required offset to the starting 
address of the table. The following example gets the ad¬ 
dress of the Job Data Block (JDB) for job 5 (see section 

1.1 and 1.2 for information about JOBTBL and JDB): 

10 JOBTBL% = SWAP%(CVT$%(MID(SYS(CHR$(6%) + CHR$(-3%)).11 %.2%))) 
!Get starting address of job table (JOBTBL) 

20 JDBPTR% = PEEK(JOBTBL% + (5% *2%)) 

!Get pointer to JDB for job 5 from JOBTBL 


1.1 JOBTBL—JOB TABLE 

The Job Table is the root of the job control struc¬ 
tures. It points to the Job Data Block which, in turn, 
points to the other job related blocks. 

JOBTBL contains one entry for each possible job on 
the system. The job control information for each job can 
be accessed by using the job number times two as an of¬ 
fset from the beginning of JOBTBL. The value found at 
that location will be the address of the Job Data Block 
(JDB) for that job. If a 0 is found at that location there is 
currently no job with that job number. 

The first word of JOBTBL (at offset 0) is always a 0. 
This word corresponds to the entry for the null job, job 
0. The last word in the table will always be -1 to signify 
the end of the table. Thus, the total length of JOBTBL, in 
words, is JOBMAX (the maximum number of jobs, 
specified at sysgen time) plus 2. 


1.2 JDB—JOB DATA BLOCK ONE 

The Job Data Block (JDB) contains the most com¬ 
monly used information about a job. It is pointed to be 
the entry in JOBTBL corresponding to its job number. 
The JDB. in turn, points to the three other job control 
blocks for the job: JDB2. lOB and WRK. 

The scheduler uses JDPRI and JDBRST to determine 
which job to run next. The memory manager uses 
JDMCTL. JDSIZE, JDSIZM and JDSIZN to set up the 
memory mapping registers and to schedule a swap-in. 
The swapper uses JDRESQ, JDSWAP, JDMCTL and 
JDSIZE to swap jobs in and out of memory. The EMT 
handler uses JDIOST, JDFLG and JDWRK to process 
system and 1/0 calls. 

Offset Symbol Description 

0 JDIOB This word contains the address of 
the I/O data block (lOB) for this job 
(see section 1.4). 


Symbol Offset Offset Symbol 




1 

1 

Pointer 

to lOB 

1 0 

JDIOB 



1 '■ 
1 

1 

Primary job 

status flags 

1 2 

JDFLG 

JDPOST 

5 

1 

1 

1 

Posting mask 

1 lOSTS for job 

1 4 

JDIOST 



1 

1 

1 

Pointer to job's 

work block (WRK) 

1 6 

JDWORK 



1 ■ 
1 

1 

Pointer to 

job's JDB2 

1 8 

JDJDB2 

JDSIZN 

11 

1 

1 

1 

New job size 

1 Job status flags 

1 10 

JDFLG2 



1 

1 

1 

Pointer to job's RTS descriptor 

1 12 

JDRTS 



1 

1 

1 

Residency 

quantum 

1 14 

JDRESQ 



1 

1 

1 

Memory control sub-block 

1 16 

JDMCTL 



1 

1 

1 



1 18 




1 

1 

1 


1 Job size 

1 20 

JDSIZE 



1 

1 

1 



1 22 




1 

1 

1 



1 24 




1 

1 

1 

L3Q bits to set on residency 

1 26 

JDRESB 

JDBRST 

29 

1 

1 

1 

Run burst 

1 Priority 

1 28 

JDPRI 

JDSWAP 

31 

1 

1 

Swap slot number 

1 Maximum memory 

1 30 

JDSIZM 


2 JDFLG This word contains the main job 
status flags (see section 1.2.1). 

4 JDIOST This byte contains the error code to 

be returned to the program after the 
completion of the current monitor 
call. If the bit JFIOST is set in the job 
status flags (JDFLG), JDIOST is mov¬ 
ed to the location FIRQB + 0 in the 
user program area (accessed by the 
variabie ERR in BASIC-PLUS). A value 
of 0 indicates that no error occured. 
(See the System Directives Manual). 

5 JDPOST If the bit JFPOST is set in the job 

status flags (JDFLAG) this byte is us¬ 
ed to specify which information in 
the job’s work biock (WRK) is to be 
posted to the job’s FIRQB or XRB. If 
the value in JDPOST is positive it is 
used as an index into a table of bit 
masks for posting to the FIRQB. If it 
is negative the low order 7 bits are 
used as a bit mask for posting to the 
XRB. 

6 JDWORK This word contains the address of 

the work block (WRK) for this job 
(see section 1.5). 

8 JDJDB2 This word contains the address of 
the second job data block (JDB2) (see 
section 1.3). 

10 JDFLG2 This byte contains the secondary job 

status flags (see section 1.2.2). 

11 JDSIZN This byte contains the size (in K 

words) to make this job the next 
time it is swapped in. The memory 
manager uses this iocation when a 
job must be swapped out to find ad¬ 
ditional memory as it attempts to 
grow in size. 
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12 JDRTS This word contains the address of 
the runtime system descriptor block 
(RTS) associated with this job. (RTS 
blocks will be discussed in the se¬ 
cond part of this series). Every job 
has a runtime system associated 
with it at ali times. If the disappear¬ 
ing RSX runtime system is 
associated with this job, JDRTS will 
contain the address of the null run¬ 
time system descriptor biock 
(NULRTS). 

14 JDRESQ This word contains the current 
residency quantum for the job. As 
long as the job's residency quantum 
is non-zero the job is not eligible to 
be swapped out. This is used to 
reduce memory thrashing. When a 
job is first swapped into memory it 
is given a residency quantum. Each 
time the job runs or does disk I/O 
the residency quantum is reduced in 
proportion to the amount of time it 
ran and the estimated time to com- 
piete the I/O. When the job goes into 
terminal input wait the residence 
quantum is set to zero to ailow the 
job to be swapped if necessary. 

16 JDMCTL These five words are the memory 
control sub-block (MCB) for the job. 
The memory control sub-block will 


20 

26 


28 


29 


30 


31 


JDSIZE 

JDRESB 

JDPRI 

JDBRST 

JDSIZM 

JDSWAP 


be discussed in the second part of 
this series. 

This word (within the memory con- 
troi sub-biock) contains the size of 
job in K words. 

This word contains the bit mask to 
be posted to the level three queue 
word (L3Q) when the job is made 
resident. It is used by the monitor to 
notify itself when the job is made 
resident so that a function that re¬ 
quired the job to be resident may be 
continued. 

This byte contains the job's priority. 
It can range from -128 to +127. The 
scheduler uses this byte to deter¬ 
mine which job to run next. 

This byte contains the job's run 
burst. The run burst is the amount 
of time (in clock ticks) the job may 
execute compute-bound before the 
scheduler is cailed. 

This byte contains the job's private 
memory size maximum. A vaiue of 
255 indicates that the job may use 
up to the system job size maximum. 
If this byte is non-zero it contains 
the slot number within the swap¬ 
ping files that the job is swapped out 
to. If it is zero, the job is either resi¬ 
dent in memory or has no job image. 


RSTS/E SOFTWARE PACKAGES 


■ KDSS, a multi-terminal key-to-disk data 
entry system. (Also available for RSX-11M.) 

■ TAM, a multi-terminal screen-handling 
facility for transaction-processing applica¬ 
tions. (Also available for RSX-11M.) 

■ FSORT3, a very fast sort. Directly sorts 
RSTS/E files containing up to 16 million 
keys or records. Up to 70 times as fast as 
the RSTS-11 Sort package in CPU time. 

■ SELECT, a convenient, very quick package 
for extracting records that meet user-speci¬ 
fied selection criteria. 

■ BSC/DV, a device driver for the DEC DV11 
synchronous multiplexer that handles most 
bisynchronous protocols. 


■ COLINK, a package that links two RSTS/E 
systems together using DMCIIs. Supports 
file transfers, virtual terminals, and across-the- 
link task communication. 

■ DIALUP, a package that uses an asynchro¬ 
nous terminal line to link a local RSTS/E 
system to a remote computer system. Sup¬ 
ports file transfers, virtual terminals, and 
dial-out through a DN11. 

(The performance-critical portions of the first 
five packages are implemented in assembly 
language for efficiency.) 

Evans Griffiths & Hart, Inc. 

55 Waltham Street 
Lexington, Massachusetts 02173 
(617) 861-0670 
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1.2.1 JDFLG — Primary Job Status Flags 

The job status flags contained in the word JDFLG 
are defined as follows: 


Bit Symbol Description 


0 


1 


2 


3 


4 


5 

6 


7 


8 

9 


10 


JFPOST The monitor checks this bit before 
making a job runable. If it is set the 
information in JDPOST is used as a 
mask for updating the job’s FIRQB 
or XRB. The information in J2PPTR 
and J2PCNT in JDB2 (see section 1.3) 
may also be used to post large 
amounts of data to a user-defined 
buffer. 

JFIOKY If this bit is set when a job is made 
runable the job’s keyword is copied 
into location 400(octal) of the job’s 
image and the contents of JDIOST 
are posted to the job’s FIRQB. 

JFRSX if this bit is set the monitor resident 
RSX support is used to post the job 
information indicated by JFIOKY, 
rather than using the standard 
monitor routines. 

JFCC This bit is set when a t C is typed at 
the job’s terminal. When the job 
becomes runable the pseudo-vector 
P.CC (see the System Directives 
Manual) will be taken unless JF2CC 
is also set. 

JF2CC This bit is set when a t C is typed 
and at least one t C has already been 
typed since the job was last run. 
When the job becomes runable the 
pseudo-vector P.2CC will be taken. 

JFPPT If this bit is set when the job is made 
runable the floating point trap 
pseudo-vector. P.FPP. will be taken. 

JFGO If this bit is set when the job is made 
runable the I/O redo condition 
specified by JFREDO is ignored. This 
bit is set if a user types t C during 
an interuptable 1/0 operation. 

JFREDO If this bit is set when a job appears 
runable (and JFGO is not set) then 
the job is stalled waiting for an I/O 
completion and is not really runable. 

JFSYST This bit is set if the job can use tem¬ 
porary privileges. 

JFFPP If this bit is set the contents of the 
floating point hardware (if any) are 
saved and restored along with the 
job image. This bit is one of the 
keyword bits (see the System Direc¬ 
tives Manual). 

JFPRIV This bit is set if the job is logged into 

a privileged account. It is one of the 
keyword bits. 


11 

12 

13 


14 

15 


JFSYS This bit is set if the job is currently 
running with temporary privileges. 
It is one of the keyword bits. 

JFNOPR This bit is set if the job is running 
non-logged in. It is one of the 
keyword bits. 

JFBIG If this bit is set the job can exceed its 
private memory size (as defined in 
JDSIZM). It is one of the keyword 
bits. 

JFLOCK This bit is set if the job is locked in 
memory. It is one of the keyword 
bits. 

JFSPCL This bit is set if some special pro¬ 
cessing is required before running 
the job. The flag bits in JDFLG2 
specify the special action to be per¬ 
formed. 


1.2.2 JDFLG2 — Secondary Job Status Flags 

The job status flags contained in the byte JDFLG2 
are defined as follows: 


Bit Symbol Description 


0 

1 

2 

3 


4 

5 

6 


7 


JFCTXT This bit is set if the job’s context is 
to be saved. 

JFPRTY This bit is set if the special condition 
shown by JFSPCL is a memory parity 
error. 

JFRUN This bit is set if the special condition 
shown by JFSPCL is a new program 
run entry request. 

JFSWPR This bit is set if the special condition 
shown by JFSPCL is a runtime 
system or resident library load 
failure. 

JFSTAK This bit is set if the special condition 
shown by JFSPCL is a stack 
overflow. 

JFSWPE This bit is set if the special condition 
shown by JFSPCL is a swap error. 

JFKIL2 This bit is set when the job is being 
killed and the logout phase of killing 
a job has completed. The second 
phase of a logout, the removal of job 
control information, should be done 
now. 

JFKILL This bit is set if the job is to be killed. 


If JFSPCL is set in JDFLG but no bits are set in 
JDFLG2. the current runtime system is entered at its 
P.STRT or P.CRAS entry point. 


1.3 JDB2 — JOB DATA BLOCK TWO 

The secondary job data block (JDB2) contains infor¬ 
mation about the job that is used less often or is less 


IEC11 


LSI H DISC CONTROLLER, 

Model DQ1CX), interfaces 2.5,5,10 
I or 20 MB cartridge and fixed platter 
drives in combinations to 80 MB 
• RKV-11/RK05* emulator • handles front load (2315) and/or 
top load (5440) drives • automatic power fail/power down 
media protection • RT-11/RSX-11 compatible. 

LSM1 EMULATING MASS STORAGE 


10 intelligent hard disc and 
magnetic tape controllers 
offer LSI-11,Ml/2,11/23, 
and PDP-11* single quad slot 
compatibility with up to 60% power saving. 

Only DILOG (Distributed Logic Corporation) exclusive 
automat^ design, common proprietary architecture and 
sophisticated bipolar ytPs give you • all single board quad 
size products requiring no external power or chassis... 
just a cable to connect the drive... you don Y need anything 
else • high reliability • automated self-test including data 
base protect feature and indicator. And at cost savings of 
50% or more. 

LSI-11 MAGNETIC TAPE CONTROLLER, Model 
D0120, Interfaces 4 industry standard reel-to-reel drives 

• emulates TM11 * • handles 7 and/or 9 track NRZI drives 
to 112.5 ips • selectable DEC or IBM byte order formatting 

• data error checking • RT-11/RSX-11 * compatible 

• extended addressing to 128K words. 

LSI-11 MAGNETIC TAPE COUPLER, Model DO 
130, interfaces dual density (NRZI/PE) formatted drives 

• emulates TM11 • handles up to eight 9 track 800/1600 
bpi Industry standard drives at speeds from 12.5 to 125 ips 

• “streamer” mode capability • software or switch selec¬ 
table density • RT-11/RSX-11 software compatibility. 

LSI-11 MASS STORAGE DISC CONTROLLER, 
Model DO 200, interfaces any two SMD flat cable inte r-lfi^ 
face compatible hard disc drives for up to 500 MB 
on-line storage • mix or match compatible 
Winchester, SMD or CMD • variable sector 
size • automatic media flaw compensation 
with bad sector flagging • optimized logical 
to physical unit mapping • implements 
Winchester fixed head option. 

LSI-11 SHUGARTSA4000 
WINCHESTER DISC CONTROLLER, 

Model DQ 201, emulates DEC RK* 

• runs drivers under RT-11 and 
RSX-11M* systems 

• compatible 

with 14.5 MB SA4004 or 29 MB 
SA4008 drives • automatic 
media flaw compensation. 


CONTROLLER, Model DQ 202. Cost effective interface of 
two 8 and/or 14-inch Winchesters, SMD or CMD hard disc 
drives without changing controller... 8 to 300 MB capacity 
• RP emulator • automatic media flaw compensation. 

PDP-11 MAGNETIC TAPE CONTROLLER, Model 
DU 120, emulates TM-11 and has same features as Model 
DQ 120 (LSI unit) • software compatible with RT-11, RSX-11, 
RSTS, IAS and MUMPS. 

PDP-11 MAGNETIC TAPE COUPLER, Model 
DU 130, offers features of Model DQ 130 (LSI unit) • RT-11, 
RSX-11, RSTS, IAS and MUMPS software compatible. 

PDP-11 DISC CONTROLLER, Model DU 100 includes 
features of Model DQ 100 (LSI unit) • RT-11, RSX-11, RSTS, 
IAS and MUMPS compatible • emulates RK-11. 

PDP-11 EMULATING MASS STORAGE 
CONTROLLER, Model DU 202, offers same features as 
Model DQ 202 (LSI unit). 



Write or call for detailed product performance 
information, QEM quantity pricing, stock to 30 day 
delivery or warranty data on these DEC 11 
compatible products... or several soon to be 
announced new DILQG products. 

Distributed Logic Corp., 12800-G Garden 
Grove Blvd., Garden Grove, CA 92643 
Phone (714) 534-8950 
Telex: 681399 DILQG GGVE 

DISTRIBUTED 
ILDCIC CORP. 



All DILOG iaP Products 
are Low Power. Quad Size 


•Trademark Digital Equipment Corp. 
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with DEC* Just concentrate* 



for tape and disk controllers- 
applying the latest microproces¬ 
sor technology and some sexy 
design to give our customers the 
performance and reliability 
they deserve. 

Our newest achievement 
proves the point. To wit: just one 
hex size board, occupying a 
single Unibus slot, provides up 
to 64 lines for terminals, printers 
or other communications I/O. 
That’s eight times more efficient 
than the DEC approach. 

And our unique system 
organization means maximum 
flexibility. You can daisy-chain 
up to four remote distribution 
panels, expanding in 8 or 16 
line increments all the way to 
64 lines. You can conftgure any 
8 line group for an RS-232 inter¬ 
face, with modem control a stan¬ 
dard feature. Or you have the 
option of selecting a current loop 


We’ve earned our reputa¬ 
tion by designing and delivering 
dependable, easy to live with 
tape and disk controllers for DEC 
CPUS. Products that really showed 
the industry how to do it. 

Now we’ve cleaned up the 
communications I/O morass, 
with a new DH-11 type multiplexer 
for PDP-11 and VAX systems. 

It duplicates all the features of 
DEC’S DH-11. And it goes well 
beyond, delivering improved line 
handling capabilities in a far 
smaller package and at signifi¬ 
cantly lower cost. 

You might say we’re now 
doing for communications con¬ 
trollers what we’ve already done 


The new Emulex CS-11/H really 
concentrates your communications 
I/O. Just one hex size board multi¬ 
plexes up to 64 lines 


interface. And because all your 
interface variations are made 
at the distribution panels, no 
additional hardware or cpu 
restructuring is needed when 
you add channels. 

You get everything you got 
from DH-11. such as DMA on 
transmit operation and line format 
flexibility. Naturally, we’re fully 
software transparent and run 
existing DEC diagnostics. 

But we like to do everything 
we do just a little bit better than 
the other guy. So we boosted 
performance to 19.2 K baud per 
line. For peak traffic, we can 
“double fifo’’ to 128 characters 
per 16 lines. Multiple control¬ 
lers can be added for increased 
capacity. You get full 16-bit word 
transfers on DMA operation - not 
just byte transfers. And. of 
course, we’ve taken advantage 
of our system’s high speed 
bipolar microprocessor to build-in 
extensive controller and channel 
self-test and fault indicators. 

We’re concentrating on DEC, 
making the world’s best cpus 
even better with some ingenious 
controllers. We’ve done it for 
tape and disk interfacing. Now 
for communications I/C. We’d 
like to send you all the details we 
didn’t have room to include here. 
So write or call Emulex Cor¬ 
poration. Cr, if you just can’t wait, 
contact the Emulex represen¬ 
tative. dealer or distributor near¬ 
est you. 

For immediate, off the shelf 
delivery contact our national 
distributor; First Computer Cor¬ 
poration; Corporate Square, 

825 North Cass Avenue: West¬ 
mont. IL 60559; 312/920-1050. 



EMULEX 


EMULEX CORPORATION 
2001 E. Deere Ave. 

Santa Ana. CA 92705 
714/557-7580 
TWX 910-595-2521 
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time critical than the information in JDB. Its primary 
use is for accounting and directory information. 

Symbol Offset Offset Symbol 


J2CPUM 11 


Unposted clock ticks 

1 0 

J2TICK 

CPU time 

I 

1 2 

J2CPU 

Connect time 

" 1 

1 4 

J2CON 

Kilo-core-ticks 

1 6 

J2KCT 

Device time 

1 

1 8 

1 

J2DEV 

CPU time MSB | KCT MSB 

1 10 

1 

J2KCTM 


1 12 

J2NAME 

Program name 

1 



1 14 

1 


Default runtime system pointer 

1 16 

1 

J2DRTS 

Receiver ID block pointer 

1 18 

1 

J2MPTR 

Large data posting pointer 

1 20 

1 

J2PPTR 

Large data posting count 

1 22 

1 

J2PCNT 

Project-Programmer number 

1 24 

1 

J2PPN 

DCN of first UFD block 

1 26 

1 

J2UFDR 

Pointer to window descriptor block 

1 28 

1 

J2WPTR 

"T CPU time 

1 30 

J2CPUI 


Offset Symbol Description 


0 


2 


4 


6 


8 


J2TICK This word is incremented at each 
clock interrupt when the job is ex¬ 
ecuting. When the job is descheduled 
this value is converted to the 
equivalent number of 1/10th 
seconds and added to J2CPU. Any 
amount less than 1/10th second is 
left in this word. The units of this 
word depend on how fast the clock is 
interrupting. For a KW11L clock, 
running at 60 hertz, the units are 
1 /60th seconds. 

J2CPU This word contains the low order 16 
bits of the total CPU time used by 
this job through the last time 
J2TICK was posted. The units of this 
value are 1/10th seconds. 

J2C0N This word contains the total connect 
time, in minutes, for this job. Con¬ 
nect time is only computed while a 
job is logged in. 

J2KCT This word contains the low order 16 
bits of the job's kilo-core-ticks. One 
kilo core tick is the use of 1 K-word 
of memory while executing for 
1/10th second. Using 2 K-words for 
1 / 10th second is two kilo-core-ticks. 

J2DEV This word contains the total device 
time for this job in device-minutes. A 
device-minute is the use of one 
device for one minute. Using two 
devices for one minute is two device¬ 
minutes. etc. 


10 J2KCTM 

11 J2CPUM 

12 J2NAME 


16 J2DRTS 


18 J2MPTR 


20 J2PPTR 


22 J2PCNT 

24 J2PPN 

26 J2UFDR 

28 J2WPTR 


This byte is the high order 8 bits of 
the kilo-core-ticks (see J2KCT 
above). 

This byte is the high order 8 bits of 
the CPU time (see J2CPU above). 
These two words contain the pro¬ 
gram name in RAD50. The program 
name is specified using the .NAME 
system call. All the standard run¬ 
time systems issue this call to post 
the program name each time a pro¬ 
gram is run. The contents of this 
word are for information only, and 
are ignored by RSTS 
This word is the address of the run¬ 
time system descriptor block (RTS) 
of the default RTS for this job. When 
a running program exits, control 
returns to this default RTS. If the 
default RTS is no longer installed 
when the program exits the system 
default RTS is used instead. RTS 
blocks will be described in the se¬ 
cond article of this series. 

If this job is a message receiver, this 
word contains the address of its 
receiver ID block (RIB). If this job is 
not a receiver this word is 0. RIB 
blocks will be described in the fourth 
article of this series. 

This word is used as a pointer to a 
monitor buffer to be used to 
transfer information to or from a 
user program buffer. It is normally 
used for large message send/receive 
buffer transfers. If the lower 5 bits 
of the pointer are 0 the pointer is an 
address into the small buffer area. If 
the lower 5 bits are not 0 the pointer 
is an address into the large buffer 
area that has been rotated left 7 
bits. 

This word specifies the number of 
bytes to transfer to or from the buf¬ 
fer specified by J2PPTR. 

This word contains the job’s PPN. 
The low byte contains the group 
number and the high byte contains 
the user number. If the job is not 
logged in this word will be 0. 

This word contains the device cluster 
number (DCN) of the first cluster on 
SYO: of the UFD specified in J2PPN. 
above. The value of this word is 
undefined if the job is not logged in. 
If the job is attached to any resident 
libraries this word contain the ad¬ 
dress of the job's first window 

... continued on page 58 
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The Other 
Story About 
VAX and VMS 

By Ross W. Miller 

President, Online Data Processing. Inc. 




In 1977 just prior to the VAX being announced, I was 
discussing with a group of people some short-falls of the 
PDP11 computer. (1) Memory Management Concepts; (Z) 
Memory Addressability; (3) Shared Memory Protection. 

We also discussed different data types that are re¬ 
quired to do a good job of data processing and the type of 
instructions one should have. I was greatly surprised and 
pleased when I went to the Fall DECUS of that year and 
DEC announced the VAX computer and described what 
was to me an almost perfect hardware design. 

The design of the VAX is one of the best I’ve seen for 
current technology and it will give a considerable amount 
of flexibility in incorporating new concepts which have yet 
to be developed. Overall I would give DEC very high marks 
for the VAX machine. However, there are some problems. 
The purpose of this article is to provide some insight as to 
where those problems might be found, especially since 
many users are looking to the VAX to alleviate through-put 
problems and avoid costly conversions. Rather than 
spending a lot of time on the positive details of the VAX 
which you can read from all sorts of DEC literature. I'll take 
a few moments to enlighten you on some of the surprises 
and points of interest that are not discussed by DEC. 

The single largest problem with the VAX computer is 
the fact that the DEC commercial product line people didn’t 
want to become involved in the early design of the VAX 
computer and its operating system. I am sure there are go¬ 
ing to be some people jumping up and down and saying, 
"Miller you are all wrong!. . . we were there." but unfor¬ 
tunately, they weren’t there when they needed to be. Many 
things were designed into the VAX computer attempting 
to be sensitive to commercial interest in areas such as the 
ability to handle strings more efficiently, binary coded 
decimal data types and formatting instructions. However, 
DEC missed the boat in designing the operating system for 
commercial applications in such areas as operator inter¬ 
face, facilities for handling printers, record management 
efficiencies and what I would consider some significant 
oversights in the primary migration language for DEC’S 
current customer base. This being VAX BASIC. 
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VAX BASIC — There are some good things and some bad 
things about it. First the good things... they have tried to 
maintain the interactive mode of programming which is a 
very positive feature of BASIC PLUS. Now the bad things... 
they didn’t go far enough with the interactive features: 
secondiy, it suffers greatly in the area of performance: and 
thirdiy, by trying to give the impression that you can make 
minor modifications to your BASIC PLUS code and begin 
executing it in VAX BASIC, you could be misled into doing 
things that wiil be detrimentai in the areas of performance 
and effectiveness use of the VAX machine. 

Unwittingiy, many of us who have been exposed to 
BASIC PLUS programming have deveioped several short¬ 
cuts and concepts on resolving data processing problems 
by automatically taking into account the restrictions that 
BASIC PLUS Imposes. By using the same approach to 
develop your VAX BASIC program as you used with the 
BASIC PLUS program, you could be hurting yourself: i.e. 
structuring your program, data types used and, seg¬ 
menting functions that shouid not be segmented. 
However, you automaticaliy do it to circumvent BASiC 
PLUS restrictions. 

With regard to VAX BASIC performance, we found 
that it is indeed fast in most bench marks, and specificaily, 
in doing computational type operations. My point is: In a 
commercial application, a very smali portion of your ap¬ 
plication program is actually involved in doing computa¬ 
tion. Commercial applications deai mostiy with string 
manipulation and record management functions: 
searching through a fiie, doing compares, changing data, 
updating information in records, etc. Therefore, it is my 
opinion that most bench marks, that have been run, do not 
refiect the true commerciai environment. We have found 
that when applications written in VAX BASIC are com¬ 
pared to BASIC PLUS application of the same type (same 
concepts used) running on the 11 /70, surprisingly the CPU 
time is comparable and this is disappointing. 

In trying to determine exactly where the problems oc¬ 
cur In VAX BASIC performance, we have traced through 
listings and micro-fiche. Many of the specific commercial 
routines that do string manipulation, formatting of data, 
and record management will do a call to a routine to per¬ 
form a function which couid have been executed in one to 
three machine instructions. As you trace these calis into 
the run time library, you find that these routines do cails to 
other routines, which do calls to other routines, etc. until 
finally, it gets down to the routine which actually performs 
the function and does the two or three instructions. It then 
starts to do the returns and unwinds. Naturally, all this is 
overhead and can increase the possibility of page fauits as 
you wander your way through the mazes of twisty little 
passages, all alike, in the run time library. 

It appears that a PDP11 programmer wrote the VAX 
BASIC programs and got carried away with the idea of 
modular programming forgetting that the VAX had built 
in instructions to accompiish what you want in machine in¬ 
structions. It’s not as fast as advertised, but it couid be 
much faster. 


DATA BASE MANAGEMENT — The VAX machine is the 
right machine to implement a good DATA BASE manage¬ 
ment system. As of this time, I have not seen a good DATA 
BASE management system for the VAX but nothing in the 
design of the operating system prevents it from being an 
exceilent DATA BASE system. One of the major re¬ 
quirements for DATA BASE management is to have a iarge 
address space and do a reasonable job of cacheing fre¬ 
quently used sections of the DATA BASE. A 16 bit machine 
does not have the address space necessary and can cause 
you to do excessive thrashing of the disk by using DATA 
BASE system. A good DATA BASE system shouid reduce 
disk access for you. 

RMS — Another significant point, is the use of RMS on the 
VAX computer. RMS is built into the operating system and 
this has its good points and its bad points. The positive 
aspect is they have reduced the overhead for RMS 
significantly from the PDP11 implementation. Those who 
are familiar with RMS on the 11 wili be pleased with the 
VAX. However, there is still a significant amount of 
overhead in RMS due to the conservative implementation. 
An example of this is that whenever you do a put of a 
record which is 50 or 60 characters long, it will cause a 
write of the entire block back to the disk. To get better 
performance, it is preferrabie to keep mass storage I/O to 
an absolute minimum since that is typically the most time 
consuming operation on a computer. Because of this con¬ 
servative design, it is easy to get into I/O bottlenecks with 
RMS under VAX. 

I am confident that performance improvements are 
being made to the RMS faciiities. My biggest concern is 
that the VAX BASIC people do not seem to be concerned 
about performance issues: nor are they interested in pro¬ 
viding additional features which will allow the user to con¬ 
trol performance issues such as the many things that RMS 
wiil allow you to do but VAX BASIC doesn’t provide a ciean 
way of accessing. 


VAX SPECIALISTS 

• System Evaluation 

• Special System Adaptations 

• Application Programming 



2% years VAX Commercial Experience 
10 years RSTS Experience 


N. 637 Hamilton; Spokane, Wa. 99202 
(509) 484-3400 
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VMS — Furthermore, there are some things in the 
operating system which definiteiy need to be improved. 

1. If you are connected to a dial up line and you lose 
carrier on that line, your job gets killed. There is 
no way of preventing it. This isn't very conven¬ 
ient when you are updating multiple files simul¬ 
taneously. 


and other such routines in business applications, we have 
used a few macro coded routines very effectively in 
business applications for forms management and screen 
handling routines which we developed prior to DEC having 
anything available. 

In addition, we found there were some DCL commands 
that were not provided so it was very easy for us to write 

the routines the way 




2. There isn't any 
way of doing a 
detach of a Job 
and attaching 
to a job. 

3. There is no way 
to do a force 
to a terminal 
for the system 
manager to 
help naive users 
or to get an X- 
offed LA 180 
started again. 

4. It is not possi¬ 
ble to mount a 
tape under pro¬ 
gram control. 

The only way 
you can mount 
a tape, is at 
VMS DCL level. 

If you can imagine 
a situation in a com¬ 
mercial environment 
where you need to pro¬ 
cess for several hours 
and then mount a tape, 
do further processing, 
change to a different 
tape to continue proc¬ 
essing. you will defi¬ 
nitely have problems 
doing this currently 
under VMS. 

On the positive 
side, spooled printers 
and terminal are great. 

There needs to be 

additional improvements in forms management and con¬ 
trolling who can be an operator for a specific printer, such 
as a remote printer, but these again can be resolved. 

Things such as being able to call routines written in 
any language from any other language is a beneficial 
feature. You can optimize certain functions that are not in 
the native language that you are using but are executed 
frequently. Even though I discourage mixing macro code 


RELIABILITY 
-I- PRICE=VALUE 

FOR VAX MEMORY 


- A Full 24-Month Warranty 
(twice the standard) 

- How Can We Afford to do this 

- Simple.. .We build Memory that is a New 
Standard in Reliability. 

Call Us for a Quote: 

Don Johnson 800-538-8510 

408-736-7009 in California 


We also have Full Installation/Maintenance 
Available Throughout the U.S. 




Notional Semiconductor Corporation MS7C265 
2900 Semiconductor Dr., Santa Clara, CA 95051 
Tel: (408) 736-6994 TWX: (910) 339-9253 


we wanted them and 
provide them for our 
clients as though they 
were part of the stand¬ 
ard DCL set. 

While you may 
think this has been a 
negative report. I wish 
to assure you that this 
is not my intent. How¬ 
ever. I do want you to 
be aware of the things 
that are not advertis¬ 
ed or widely known. 
Most of these prob- 
blems are a matter of 
presenting them to 
the proper individuals 
to get them fixed or 
modified. Currently, 
DEC definitely needs 
strong input from the 
commercial world. 
DEC'S turnaround time 
however, is V/z to 2 
years. That means 
that if you put in a 
request right now for 
a new feature or a 
change and DEC ac¬ 
cepts it, you won't see 
it for V/z to 2 years. 
That is the time it 
takes to implement, 
test and distribute 
the new feature or 
change. So . . . if you 
wait, you can calculate 
for yourself when it 
will be available. 


In conclusion, rm 100 % behind VAX/VMS: 
but I would caution you to be extremely careful about 
assuming anything about the VAX system, and especially 
how to get performance out of it. We have been bit the 
hardest by using functions that worked extremely well 
on the PDF 11 but when we implemented them on the 
VAX we were actually working against VMS and thereby 
increasing system overhead. 
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RSTS/E ON VAX 
ROSS/V 

(RSTS/E Operating System Simulator for VAX) 


ROSS/V is a software package, written in 
VAX-11 MACRO, which provides a RSTS/E 
monitor environment for programs running in 
PDP-11 compatibility mode on DEC’S VAX-11. 

ROSS/V supports: 

■ The BASIC-PLUS interactive environment. 

■ Concurrent use of multiple run-time systems. 

■ Update mode (multi-user read/write access to 
shared files.) 

■ CCL (Concise Command Language) commands 

■ An extensive subset of RSTS/E monitor calls 


ROSS/V runs under VMS and interfaces to pro¬ 
grams and run-time systems at the RSTS/E 
monitor call level. ROSS/V makes it possible for 
DEC PDP-11 RSTS/E users to move many of 
their applications directly to the VAX with little 
or no modification and to continue program 
development on the VAX in the uniquely hospit¬ 
able RSTS/E environment. Most BASIC-PLUS 
programs will run under an unmodified 
BASIC-PLUS run-time system. 

RSTS, PDP-11, VAX-11, and DEC are trademarks of Digital Equipment Corporation. 


(Eastern U.S.) 

Evans Griffiths & Hart, Inc. 

55 Waltham Street 
Lexington, Massachusetts 02173 
(617) 861-0670 


ROSS/V is available from: 

(Central U.S.) (Western U.S.) 

Interactive information Systems, Inc. Online Data Processing, Inc. 

10 Knollcrest Drive N. 637 Hamilton 

Cincinnati, Ohio 45237 Spokane, Washington 99202 

(513) 761-0132 (509) 484-3400 
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SCENES 

FROM 

CANADIAN 

DECUS 

1981 





w-n/Tsa 

starting today, the size of your program no longer determines 
the size . Of price... of your system. 

The VAX-11/750 fits countless applications waiting for a new 
kind of computer system 

The architectural breakttvougn-2 gigabytes program space for 
every user 

The software you need to put large jobs onto a small computer is 
already written 

How tie VAX-11/750 redefines distributed processing to help you 
control costs, increase productivity 


The technolOQical benefit: Prce/performance and reliabilitv. 



w-n/Tsa 

Enfin un systeme dont la dimension .et le pnx .. ne dependent plus de 
fampleur du programme 

Le VAX-11/750 r6pond a une multitixte de besoins qu aucun systeme n a pu 
satisfaire lusqu ici. 

Uhe architecture n^wlutionriaire: 2miliards d octets despace-programme 
par uWisateur 

Un bgici^ qui vous permet d executer de gros travaux sur un petit ordinateur. 

Une rxxA/ele ctecentralisation du traitement des donnees qui vous aide a 
mieux contrOler les couts et a augmenter la productivity. 

Alouts tdchriotogiques: Rapport prix-performance et Fiabilite. 
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The Supermarket eff Computer Products 

PRESENTS 

Disk Sub Systems Ala Carte 


DEC, DATA GENERAL and others 

ForLSnif PDPIIf PDP11/70f 
VAXf UNIBUSf & MASSBUSf 

^Tradenames of Digital Equipment Corp. 

Featuring: 

• CONTROL DATA'S 

SMD.CMD, MMD, FMD, 

HAWK, LARK, PRINTERS, 

TAPE DRIVES & MEMORIES 

• KENNEDY'S 

WINCHESTERS 
&TAPE DRIVES 

• DATA PRODUCT'S 

PRINTERS 

• CENTURY DATA'S 

TRIDENTS 

Plus a Menu of CONTROLLERS: 

• EMULEX • SYSTEM INDUSTRIES 

• WESTERN PERIPHERALS 

• DILOG • BYTRONIX • RIANDA 

• MCT • DIGIDYNE 



ONLY GF OFFERS THIS 
UNIQUE COMBINATION: 

CUSTOM-TAILORED TO YOUR EXACT 
REQUIREMENTS 
FULL EMULATION 
COST SAVINGS OF 50% 

FAST DELIVERY 

EXPERT INSTALLATION & SERVICE 
OEM DISCOUNTS AVAILABLE 


And these other GF products: Printers & Subsystems; Tape Drives & Subsystems; Computers, Memories and Controllers; 
CRTs, Terminals & Media; Turnkey Business Systems; Software (Operating & Application) 


GEORGE FOLDVARY & ASSOCIATES, INC. 
400 S. Beverly Drive, Suite 310, Beveriy Hilis, CA. 90212 
(213)551-2840 • TWX 910-490-2511 




GF: I am interested in: 

□ Printers □ Tapes 

□ Controllers □ CRTs 

□ Memories □ Media 


I am an: 

□ End user 

□ Institutional 

□ OEM 


Name 
Title _ 


My requirements are: 

□ Immediate □ 3-6 months □ Information only 

My computer is a_ 


Company 
Address _ 
City_ 


. State. 


Zip. 


Telephone 
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RSTS/E Monitor Internals — Part 1 

... continued from ptage SO 

descriptor block (WDB). If the job is 
not attached to any resident 
libraries this word is 0. WDB blocks 
will be described in the second arti¬ 
cle of this series. 

30 J2CPUI This word contains the CPU time us¬ 
ed by this Job as of the last time a 
t T mini-SYSTAT was taken. 

1.4 lOB — I/O BLOCK 


information that is normally contained only in the user 
program area. This allows the Job to be swappable dur¬ 
ing certain long monitor calls. The work block normally 
is used to store the FIRQB during FIP calls and the XRB 
during I/O transfers. 

1.6 FIXED MEMORY LOCATIONS 

Several fixed locations in low memory within the 
monitor are used to store information about the current- 
iy executing Job. This information provides a shortcut 
for accessing the most used Job control information. The 
information is as follows: 


The I/O block is used to access information about 
each open channel. It contains one entry for each of the 
possible 16 channels. (Note: BASIC-PLUS only allows 12 
channels because channel 0 is the user's terminal and 
channels 13-15 are used internally by the BASIC-PLUS in¬ 
terpreter). 

The lOB is 16 words long. Each word is 0 if the cor¬ 
responding channel is closed and non-zero if it is open. If 
the channel is open this word contains the address of the 
device data block (DDB) for non-disk devices, the win¬ 
dow control block (WCB) for disk files on large-file 
systems or the small file control block (SCB) for disk files 
on small-file systems. 

One exception is the entry for channel 0. This entry 
corresponds to the Job's terminal. If the Job is running 
detached this entry may still point to a terminal DDB. 
However the ownership byte within the DDB (DDJBNO) 
will not contain this Job's Job number. 


Symbol Offset Offset Symbol 
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, WCB 

or 

SCB 

ptr 

for 

channel 

9 

1 

1 

18 


DDB, 

, WCB 

or 

SCB 

ptr 

for 

channel 

10 

1 

1 

20 


DDB, 

, WCB 

or 

SCB 

ptr 

for 

channel 

11 

1 

1 

22 


DDB, 

, WCB 

or 

SCB 

ptr 

for 

channel 

12 

1 

1 

24 


DDB, 

, WCB 

or 

SCB 

ptr 

for 

channel 

13 

1 

1 

26 


DDB , 

, WCB 

or 

SCB 

ptr 

for 

channel 

14 

1 

1 

28 


DDB, 

, WCB 

or 

SCB 

ptr 

for 

channel 

15 

1 

30 


1.5 WRK — WORK BLOCK 

The work block is a scratch work area used to hold 


Address Symbol Description 


518 


519 


520 


522 


524 


526 


528 


JOB This byte contains the Job number 
(times 2) of the currently executing 
Job. If this byte is 0 the null Job is 
running. In that case the words that 
follow have special meanings, as 
noted. This byte is accessed in 
BASIC-PLUS by PEEK(518%) AND 
255%. 

NEXT If this byte is non-zero it contains the 
Job number (times 2) of the Job that 
was scheduled to be the current Job 
but is not yet swapped into memory. 
This Job will start execution im¬ 
mediately upon gaining memory 
residency. In this case the Job shown 
in JOB is "sub-scheduled" to make 
use of the available CPU time while 
waiting for the next Job to swap in. 
This byte is accessed in BASIC-PLUS 
by SWAP%(PEEK(518%)) AND 
255%. 

JOBDA This word contains the address of 
the Job data block (JDB) for the cur¬ 
rently executing Job. If JOB contains 
a 0 this word will be 0. 

JOBF This word contains the address of 
the flag word. JDFLG, in the current 
Job's JDB. If JOB contains a 0 this 
word will contain the address of a 
dummy value of 0. 

lOSTS This word contains the address of 
the JDIOST and JDPOST bytes in the 
current Job's JDB. If JOB contains a 0 
this word will contain the address of 
a dummy value of 0. 

JOBWRK This word contains the address of 
the work block (WRK) for the cur¬ 
rent Job. If JOB contains a 0 this 
word will be 0. 

J0BJD2 This word contains a pointer to the 
second Job data block (JDB2) for the 
current Job. If JOB contains a 0 this 
word will contain the address of a 
scratch location to be used for 
J2TICK. 
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530 JOBRTS This word contains the address of 
the runtime system block (RTS) for 
the current job. If the current job is 
using the disappearing RSX runtime 
system this word will contain the ad¬ 
dress of the null RTS descriptor. 
NULRTS. If JOB contains a 0 this 
word will be 0. 

532 CPUTIM This word is the address of the value 
J2CPU in the second job data block 
(JDB2) for the current job. 

534 JOBWDB This word contains the address of 
the first window descriptor block 
(WDB) used by the current job. If the 
current job is not attached to any 
resident libraries, or if JOB contains 
a 0 this word will be 0. 


1.7 JBSTAT, JBWAIT — JOB STATUS TABLES 

Two tables, JBSTAT and JBWAIT, are used to deter¬ 
mine if a job is runable. These tables each have one word 
for every possible job on the system, including the null 
job (job 0). They are accessed by using the job number 
times two as an offset. 

When the scheduler wants to determine whether a 
job is runable it performs a logical AND of the bits in the 
job’s JBSTAT entry with the job's JBWAIT entry. If the 
result is non-zero the job is runable. If the result is 0 the 
job is stalled waiting on something and cannot be run. 

When a job stalls for any reason (such as doing I/O) 
the JBSTAT entry corresponding to its job number is set 
to 0 and a bit is set in the corresponding JBWAIT entry 
to show what the job is waiting for. 

Stalling a program for hybernation clears both the 
JBSTAT and the JBWAIT entry. When the job is later re¬ 
attached to a terminal JBWAIT will be updated to some 
non-zero value. 

When an I/O completes or some asynchronous event 
occurs, such as a message receive or sleep timeout, the 
monitor sets an appropriate bit in the job’s JBSTAT 
word. Depending on what the program was stalled for. 
this may or may not make the job runable. However, 
sooner or later the event the job is waiting for will com¬ 
plete and the job will be made runable again. 

The bit values within the JBSTAT and JBWAIT en¬ 
tries have the following values: 

Bit Symbol Description 

0 JS.SY This bit is used for I/O on all syn¬ 
chronous devices. This includes disk. 


floppy disk, magtape, etc. but does 
not include terminals. 

1 JS.KB This bit is used for terminal input. 

2 This bit is assigned at sysgen time 
for devices (such as LP:) that can 
stall and de-stall a job while still pro¬ 
cessing its 1/0. 

3 This bit is assigned at sysgen time 
for devices (such as LP:) that can 
stall and de-stall a job while still pro¬ 
cessing its 1/0. 

4 This bit is assigned at sysgen time 
for devices (such as LP:) that can 
stall and de-stall a job while still pro¬ 
cessing its I/O. 

5 This bit is assigned at sysgen time 
for devices (such as LP:) that can 
stall and de-stall a job while still pro¬ 
cessing its I/O. 

6 This bit is assigned at sysgen time 
for devices (such as LP:) that can 
stall and de-stall a job while still pro¬ 
cessing its I/O. 

7 This bit is assigned at sysgen time 
for devices (such as LP:) that can 
stall and de-stall a job while still pro¬ 
cessing its I/O. 

8 This bit is assigned at sysgen time 
for devices (such as LP:) that can 
stall and de-stall a job while still pro¬ 
cessing its I/O. 

9 This bit is assigned at sysgen time 
for devices (such as LP:) that can 
stall and de-stall a job while still pro¬ 
cessing its I/O. 

10 This bit is assigned at sysgen time 
for devices (such as LP:) that can 
stall and de-stall a job while still pro¬ 
cessing its I/O. 

11 JSTEL This bit is used for terminal output. 

12 JSFIP This bit is used for FIP (SYS call) 

waits. 

13 JSTIM This bit is used for timeouts from 

various time restricted events, such 
as .SLEEP, terminal input timeout, 
message receive timeout, etc. 

14 JSBUF This bit is used to wait for small buf¬ 

fers when no buffer space is 
available for 1/0 buffers. 

15 This bit is not currently used but is 
reserved for future use. 

In the next issue: MEMORY CONTROL ^ 



A wall chart showing the linkages between all tables in the 
RSTS/E monitor is available for ^1.00. Send your requests 
to Northwest Digital Software, Box 2-743, Newport, WA99156. 
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WORD PROCESSING 



PDP-11 AND VAX 


MULTI-USER 

Written entirely in MACRO-11 machine language, you can 
have up to 90 people using the full power of WS-11 word 
processing simultaneously without impairing the perfor¬ 
mance of data processing. 


FROM PDTTOVAX 

WS-11 can be used on the full PDP-11 family using its own 
operating system, RSTS/E, CTS-500. RSX-llM or 
VAX/VMS. Transition from one system to another can be 
made without any change to your documents. 


EASY TO USE 

Color coded commands are clearly labeled on the keyboard. 
Menus display all choices on the screen. No technical 
language or cryptic commands to remember. The screen 
immediately shows all changes you make to your 
document. No surprises. 


POWERFUL FEATURES 

Just a sample: Right margin justification. Centering, Search 
and replace. Libraries of stored text. Simultaneous editing 
and printing. Support for a wide range of printers including 
Xerox, NEC, Qume, Sanders and DEC. 


$ 2000-$3500 


WS-11 


PPII—COMPU-TOME. INC. 

I ' II I II I 668 S. Sunset Avenue 

IAJLJcJ West Covina, CA 91790 
(213) 960-2895 
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All Things BRIGHT and Beautiful 

By Michael J. D. Mowat. B.Sc., M.B.C.S. 

Department of Agriculture and Fisheries for Scotland 


Creating a ‘Proper’ RSTS Disk with Contiguous Pre-extended Directories 


If you do a weekly backup copy of your system disk, you 
could start the week with a restructured disk to get the most 
out of your system. 

The advantages of having a well constructed system disk 
on a RSTS system are great. The features required on such a 
disk are that the directories should be contiguous and pre¬ 
extended and should be placed near the centre of the disk 
along with the SATT.SYS and the swapfiles, and that all other 
files should be physically contiguous as far as possible. 

Such a disk is very fragile because user files which are not 
logically contiguous will fragment as they are modified, and if 
the system requires that accounts be removed or added the 
contiguity of the directories will gradually deteriorate. Also if a 
directory is zeroed its contiguity will be lost. It is possible to 
build a disk with contiguous directories by starting with a 
newly initialized disk and creating all the accounts, then prex- 
tending all the directories by opening null files and closing 
them. 

With a system with a large number of accounts, this is an 
extremely time consuming process and it is not reasonable to 
repeat the process if accounts are created or deleted. System 
disks do however require to have back up copies made and if a 
faster method of producing a disk \with a proper structure 
were available it would be possible to rebuild the disk at every 
backup session, taking account of any alteration in the account 
structure. Provided that the system can be taken off time 
sharing for the time necessary to copy the files using PIP the 
program BRIGHT.BAS described here can build the skeleton 
‘proper' disk very quickly (about 10 minutes for an 80 meg¬ 
abyte disk with 100 accounts). 

The old disk is kept as a backup volume and it can be 
remounted in the event of a disaster. Recovery of a single file 
from the old volume is very quick and easy using PIP. 

The prerequistes are;— 

1. An initialized system disk with the system directories 
pre-extended and with swapfiles included. This disk 
must contain the program BRIGHT.BAS and may in 
addition contain a startup command file (using ATPK) 
to make the operation automatic. In this case it must 
also contain all cusp programs and command files used 
before account [1,2] is copied to the new disk. 

2. The previous system disk with all changes made to the 
structure of the accounts. 


The new disk is initalized as a system disk with the 
directories pre-extended and the SATT, swapfiles and the 
directory of [ 1.2] are placed. The program BRIGHT as it stands 
assumes that these are placed contiguously from cluster 
20000 with a pack cluster size of 4. The program must be 
changed for other settings. When the disk has been initialized 
and any necessary files added it may be saved to another 
medium, or an image copy may be made to use the next time 
the system is rebuilt, to save having to go through the initializa¬ 
tion dialougue again. TVpically the skeleton disk would have the 
following. 

Bootstrap 

INIT.SYS 

A SIL 

BASIC.RTS 

RT11.RTS 

SWAP files 

CRASH.SYS 

INIT.BAC 

PIP.SAV 

UTILTY.BAC 

BRIGHT.CTL (Command file to build the disk) 

ERRINT.BAC 

ATPK.BAC 

LOGIN.BAC 

LOGOUT. BAC 

BRIGHT.BAS (or BAC) 

The new pack is booted on DBO: and the old pack is 
mounted (physically and logically as a private pack) on DB1:. 
The program BRIGHT.BAS is then run. The first thing this 
program does is to build an MFD containing all the accounts 
from the old system disk. It then opens a contiguous file into 
which to build the directories and then builds a contiguous 
pre-extended directory for each file. Each directory will contain 
a null file called LOCKUFD with a protection code of <63>. 
This is to prevent the directory being lost if the account is 
cleared w/ith PIP *.*/DE from a non-priviliged user. PIP/ZE will 
still destroy the contiguous directory and should not be used. 
When all the directories have been built the file into which they 
were written is removed from the directory (without resetting 
the SATT). A preliminary trial on a disk bound job with the first 
disk built by this method showed a speed improvement of 
about 50% over a disk where most of the files were more or 
less contiguous but the directories were scattered. 
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When the directories have been built the files are copied 
from DB1: to DBO: using PIP.SAV. If your system uses a new 
files first directory structure, the disk should be initialized as 
NOT new files first so that a PIP *.* will not reverse the order. 
The program INVERT.BAS is then run to change to new files 
first. This program must run in account [ 1.1 ] as it must tell the 
monitor that the change has happened (since the disk descrip¬ 
tor is read only on mount). 

The listings of BRIGHT.BAS and INVERT.BAS are as 
follows;— 

BRIGHT.BAS 
1 EXTEND 

100 ITHIS PROGRAM UILL RUN ON A SYSTEM DISK AND UILL CREATE THE SArE & 

!ACCOUNTS AS ON AN OLD SYSTEM DISK UHICH MUST BE MOUNTED AS A & 

[PRIVATE DISK ON ANOTHER DRIVE. 

110 !THE PROGRAM IS URITTEN TO HANDLE THE NEU DISK ON D00: AND THE & 
lOLD DISK ON DBl; 

120 I THE PROGRAM UILL EXTEND THE DIRECTORIES OF ALL ACCOUNTS TO & 

ISEVEN CLUSTERS AND MAKE THEM CONTIGUOUS ABOVE THE SATT.SYS & 

lUHICH SHOULD BE PLACED AT BLOCK 80000 (CLUSTER 20000). 

130 !THE SUAP FILES MAY BE PLACED HERE TOO. 

140 I THE PROGRAM ASSUMES A PACK CLUSTER SIZE OF 4. 

200 PAKCLUX-4K I THE PACK CLUSTER SIZE 

220 UFDEXTX-7X I THE NUMBER OF CLUSTERS REQUIRED FOR EACH UFD 8. 

IMUST HAVE VALUE BETUEEN 2 AND 7. 

2000 GOSUB 5000 ICREATE ACCOUNTS 
2020 GOSUB 7000 !SET UP DIRECTORY SPACE 
2040 GOSUB 12000 !REMOVE UFDFIL.SYS 
2050 GO TO 32767 

5000 REM SUBROUTINE TO CREATE ACCOUNTS 

5010 REM ACCOUNTS CREATED ON DB0: SAhE AS THOSE ON DBl: 

5020 NX-3X !ACCOUNT INDEX 

5030 ON ERROR GO TO 6000 IERR-5 IF ACCOUNTS ARE E>«AUSTED 

5040 SS-SYS (CHR* (6X ) -KTHRS (14X ) -KTHR* ( NX ) +CHRS (SUAPX ( NX ) ) +STRINGS (1 Bx. 0X ) 

■K:HRS(68X)+CHRS(66X)+CHRS(1X)4CHRS(255X)) IFIND ACCOUNT 

5041 I NEU CLUSTER SIZE CCDDED AS QUOTA 4096-4 8192-0 16384-16 

5042 S1S-M1D(SS.27X.1X)nS2*-MID(SS.28X,1X)nS3S-MID(SS,29X.2X) 

5043 IF S1S<>CHRS<0X) GO TO 5050 

5044 S2X-ASCII(S2S) 

5045 IF S2X016X AND S2X032X AND S2X064X GO TO 5050 

5046 S3*-CHRS(S2X/4X)+CHRS(0X) 

5047 S2S-CHRS(0X) 

5050 ON ERROR GO TO 6200 !ERR-16 IF ACCOUNT EXISTS 

5060 SS-CHRS(6X)+STRINGS(5X,0X)+MID(SS.7X.6X)+S1»+S2S+STRINGS(BX.0X) & 

-fCHRS (66X) -K:HRS (66X) -iCHRS (0X ) -K:HR$ (255X) -tSSS 
5080 SS-SYS(SS) 

5090 GO TO 6450 

6000 IF ERR05 GO TO 25000 

6010 RESUrC 6020 

6020 RETURN IACCOUNTS CREATED 

6200 IF ERR016 GO TO 25000 

6210 RESUfE 6450 IDO NEXT ACCOUNT 

6450 NX-NX+IX 

6460 GO TO 5030 

7000 BX-0X 

7005 I THE FIRST PART OF THIS SUBROUTINE FINDS THE TOTAL NUfBER & 

I OF BLOCKS REQUIRED BY THE EXTENDED UFDS FOR ALL ACCOUNTS t 

lEXCEPT [0. n.Cl.n AND Cl.23 
7010 ON ERROR GO TO 25000 

7020 OPEN 'Cl.lD' FOR INPUT AS FILE ♦IX, MODE 16304X 
7040 DIM •1X,UX<3583.7) 

7060 CLUX-UX(31X,0X) 

7000 lUALK THROUGH DIRECTORY 
7100 PTRX-FNLINKX(UX(0X.0X)) 

7120 GO TO 7340 UNLESS PTRX 
7140 GOSUB 7200 

7160 PTRX-FNLINKX(UX(PTRX.0X)) 

7180 GO TO 7120 

7200 REM FIND NUMBER OF BLOCKS REQUIRED 
7220 IF (UX(PTRX.4X) AND 64X)-0X GO TO 7320 
7225 TX-UX(PTT?X.1X) IDONT COUNT C0.13.C1.13 OR C1.23 
7230 IF TX-IX OR TX-257X OR TX-258X GO TO 7320 
7240 ABX-FNL1NKX(UXCPTRX.6X)) 

7260 UFDCLUX-UX(ABX.7X) 

7280 BX-BX+UFDCLUX*UFDEXTX+(UFDCLUX/5X)«4X lALLOU SPACE TO ALLIGN UFD CLUSTERS 
7320 RETURN V 

7340 I TOTAL SIZE FOR UFDS IS BX 

7350 I OPEN A FILE UHICH UILL CONTAIN THE UFDS. EACH UFD UILL CONTAIN t 
!AN ENTRY FOR A NULL FILE 'LOCK.UFD' 

7370 ITHIS INSTRUCTION MAY BE CHANGED IF THE DIRECTORIES ARE & 

INOT TO BE PLACED AT THIS LOCATION. 

7380 OPEN 'C0.13UFDFIL.SYS/PO:20000' FOR OUTPUT AS FILE •ZX.FILESIZE BX. MODE 16X 
7400 GO TO 9000 

7420 DEF FNLINKX(LX) & 

•<((LX AND 3504X)/S12X)«CLUX & 

•»-(SUAPX(LX AND -4096X)X16X))4(32X t 
+((LX AND 496X)/16X) 

0999 IROOTX IS THE START OF UFDFIL.SYS IN CLUSTERS 

9000 CSYS-CHRS(6X)4CHRS(-26X)4CHRS(0X)4CHRS(16X)-K:HRS<1X)4CHRS(0X) 1 

♦CHRS < 52X) -KIHRS < 132X ) +CHRS ( 244X) •K:HRS (38X) -fCHRS < 1B7X) -KTHR* (122X) 1 
■K:HRS(IX) 4STR ING*(9X.0X)+CHRS<60X)+CHRf (66X)+CHRS(0X)+CHRS<255X) 

9020 ROOTX-SUAPX(CVTSX(MID<SYS(CSYS).3X.2X))) 

9040 IF ROOTX<0 THEN ROOTX-ROOTX+65536 
9060 DISPX-0X 


10000 ITHE UFD ENTRY IS MADE DIRECTLY INTO THE FILE 'UFDFIL.SYS' 

IAND THE APPROPRIATE DCN VALUES ARE INSERTED INTO THE hFD 
10080 CLUX-UX(31X.0X) 

10100 lUALK THROUGH DIRECTORY 
10120 PTRX-FNLINKX(UX(0X.0X)) 

10140 GO TO 10480 UNLESS PTRX 

10160 GOSUB 10220 

10180 PTRX-FNLINKX(UX(PTRX.0X)) 

10200 GO TO 10140 
10210 IGET PPN 
10220 NX-UX(PTRX.IX) 

10230 ISKIP IF NOT AN rFD ENTRY 

10240 IF (UX(PTRX.4X) AND 64X)-0X GO TO 10440 

10300 DCN-UX(PTRX.7X) 

10310 GO TO 10440 IF DCNO0 
10320 lUFD ALREADY EXISTS 
10340 ABX-FNLINKX(UX(PTRX.6X)) 

10360 UFDCLUX-UX(ABX.7X) 

10380 GOSUB 11000 IMAKE THE ENTRY 
10440 RETURN 

10480 CLOSE ♦IXNCLOSE ♦2X 
10500 RETURN 

11000 PLX-ROOTX+DISPX IDCN OF A UFD 
11005 IF UFDCLUX>PAKCLUX GO TO 11350 

11010 ST0REX-DISPX*PAKCLUX+1X !CORRESPONDING BLOCK OF UFDFIL.SYS 
11020 UX(PTRX.7X)-PLX 

11030 NUMBERX-UFDEXTX#UFDCLUX INUMBER OF BLOCKS IN UFD 

11040 DISPX-DISPX+NUrBERX/PAKCLUX IGET NEXT DISPLACEhENT (CLUSTERS) 

11050 I BUILD A DUrtlY UFD. 

11060 FDCMS-CHRS(UFDCLUX)+CHRS(0X) 

11080 FOR I1X-0X TO UFDEXTX-lX IBUILD THE FDCM 
11100 ZX-PLX+IixmUFDCLUX/PAKCLUX 
11120 FDCMS-FDCM»4CHRS(ZX)+CHRS(SUAPX(ZX)) 

11140 NE>a IIX 

11180 REC1S-CHR$(32X)+CHRS(0X)+STRING*(2X.255X)+STRINGS(8X.0X) 

11200 REC1$-REC1S+CHR$(NX)+CHR$(SUAPX(NX))+CHRS(52X)+CHR$(132X) 

11220 REC1S-REC1$+CHRS(1X)+CHRS(0X) 

11225 REC1S-REC1*+STRINGS(12X.0X)+CHRS(4X) +CHRS(0X) 

11230 REC1S-REC1S+STRINGS(2X.0X) 

11240 REC1S-REC1S+CHR$(91X)+CHRS(77X)+CHRS( I92X)+CHRS(60X)+CHRS(52X)4CHRS( 132x) 

11246 RECIS-REC 1S+CHRS( 16X) +CHRS(63X) +STRINGS(2X.0X)+CHRS( 16X) +STRINGS(3X.0X) 

11248 RECIS-RECIS+STRINGS(448X.0X)+FDCMS 
11250 RECSS-STRINGS(496X.0X)+FDCMS 

11252 FIELD ♦2X.512X AS QS 

11253 LSET QS-RECIS 

11254 PUT •2X.RECORD STOREX 
11256 FOR IlX-lX TO NUhBERX-lX 

11258 FIELD •2X.512X AS OS 

11259 LSET OS-RECSS 

11260 PUT •2X.RECORD STOREX+IIX 
11280 NEXT IIX 

11300 [ACCOUNT UFD PRE-EXTENDED 
11320 RETURN 

11340 ITEST ALLIGNhENT OF UFD CLUSTERS 
11350 IF UFDCLUX-BX AND (PLX AND IX)-IX GO TO 11010 
11360 IF UFDCLUX-16X AND (PLX AND 3X)-1X GO TO 11010 
11370 DISPX-DISPX+IXSGO TO 11000 ITRY AGAIN 
12000 OPEN 'C0.IT'FOR INPUT AS FILE •lX.MODE 16304X 
12005 [KILL THE hFD ENTRY FOR THE FILE 'UFDFIL.SYS' UITHOUT 
[CLEARING THE SATT FOR THE UFD AREA. LEAVE THE GARBAGE. 

12010 PTRX-FNLINKX(UX(0X.0X)) 

12020 GO TO 12150 UNLESS PTRX 
12100 IF RADS(UX(PTRX.1X))<>'UFD' GO TO 12300 
12110 IF RADS(UX(PTRX.2X))<>'FIL' GO TO 12300 
12120 IF RADS(UX(PTRX.3X))<>'SYS' GO TO 12300 
12130 UX(LASTX.0X)-UX(PTRX.0X) 

12140 CLOSE •IX 

12150 RETURN 

12300 LASTX-PTRX 

12310 PTRX-FNLINKX(UX(PTRX.0X)) 

12320 GO TO 12020 
25000 ON ERROR GO TO 0 
32767 END 

INVERT.BAS 

5 [PROGRAM TO CHANGE DISK TO NEU FILES FIRST. USE UITH CARE. 

6 [OPERATES ON DB0: ONLY 

7 [MUST BE RUN ON C1.ID 

9 [TELL THE MONITOR 

10 MS-M1D(SYS(CHRS(6X)+CHRS(-3X)).19X.2X) 

20 MX-SUAPX(CVTSX(MS)) 

30 SX-PEEK(MX) 

40 SX-SX AND -513X 
50 SX-SX+512X 

60 SS-CHRS(SX)+CHRS(SUAPX(SX)) 

70 [POKE 

80 SS-SYS(CHRS(6X)+CHRS(-6X)+«S+SS) 

999 [ALTER THE DISK 

1000 DIM •1X.AX(7) 

1010 OPEN 'Cl.11' FOR INPUT AS FILE •lX.MODE 16304X 

1020 AX(5X)-AX(5X) AND -513X 

1030 AX(5X)-AX(5X) + 512X 

1040 CLOSE •lx 

32767 END 

A typical start up command file for use with ATPK is as 
follows. You can start it and leave it. The system will start up 
from the new disk when it is finished. The time taken will 
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depend on the complexity of your accounts. For a system with 
120 accounts and 120000 blocks in 7000 files the time was 
about two hours on an RP04. (considerably longer the first 
time from the rubbishy old disk). 

RUN C1.2DUTILTY 

SEND KB0: Building Directories 

ADD RTll 

MOUNT DB1;RSTS7/PRIVATE 
UNUOCK DBl: 

EXIT 

RUN C1.2 3BRIGHT 
RUN C1.23UTILTY 
SEND KB0: Transferring files. 

EXIT 

RUN C1.2DPIP.SAV 

DB0: C 0,1 ]nc. */P0:20000-C 0. 1 3*. RTS/PR; NOUARN 
! FREQUENTLY ACCESSED FILES MAY BE PLACED BY INSERTING 
I COrflANDS HERE 
♦2 

! THIS OPTIONAL FILE HOLDS SPACE NEAR THE CENTRE FOR NEU FILES 
I AND UORK FILES. 

OPEN 'FILLER.TEM/T»O:1B000' AS FILE •IX^FILESIZE 1S3B4X 

CLOSE •IX 

RUN C1,23PIP.SAV 

DBl:C1,23*.URK/DE 

DBl:Cl,23*.1Tf>/DE 

DBl :C 1.23*.COrVTlE 

DB0; C *. * 3*. *-DB 1: C *, * 3*. : NOUARN 

DB0;C1.23BRIGHT.BAS/DE 
FILLER.TEM/DE 
♦Z 

RUN C1,23UTILTY 

SEND KB0:File transfer cornplete. 

REMOVE RTll 
LOCK DBl; 

DISMOUNT DBl: 

EXIT 

HELLO I.1;SYSTEM 
RUN SINVERT 
HELLO 1.2;FILES 
$»:1.23RTS.CMD 
*0C1,23SP00L.CMD 
S«C1.23CCL.CMD 
1,23TTY.CMD 
SRC 1,23PLOT.CMD 
RUN SUTILTY 


RSTS PROFESSIONAL 

Box 361 • Ft. Washington. PA 19034 • (215) 542-7008 

□ Please enter my subscription for one year (4 issues). 

U.S.: enclose ^20; 

All other countries: enclose *30. payable in U.S. dollars. 

□ Please enter my subscription for one year (4 issues), and BILL ME 
for *20 (*30 foreign, payable in U.S. dollars). 

Please send Back Issues circled: 

□ *10 per issue enclosed. 

□ Bill me for *12.50 per issue. 

Vol. 1.^1 Vol. 2. ^2 Vol. 2. M 

Vol. 2. ^1 Vol. 2. ^3 Vol. 3. ^1 


REMOVE LOGICAL LB 
ADD LOGICAL SY0:C1,13LB 
ENABLE CACHE 
LOGINS 

SEND ALL RSTS/E V07.0 NOLI UP AND RUNNING 

SEND ALL Please sag HELLO 

EXIT 

DIR BRIGHT.DIR-C*.*3*.*/^ 

QUE LP0:/FO:NARROU/NH/DE-BRIGHT.LOG.BRIGHT.DIR 

The procedure to initialize the disk, and to position the 
swap files, and run time systems should be similar to the 
following description. 

Instructions for the UleeKlg DisK Copg. 

1) Run Shu tup 

2) Mount a scratch dlsK on DBlt 

3) DSKINT DBl: with the following dialogue 
Option: DS 

DD-rtn-YY? Date or LF 
00:00 ? Time or LF 
DISK? DBl 

A description of the disk mag be output. 

Pack ID? RSTS7 
Pack cluster size? 4 
SATT.SYS base? 00000 
MFD password? SYSTEM 
MFD cluster size? 16 
Pre-extend directories <no>? Y 
PUB. PR I, or SYS? SYS 
Llbrarg password? FILES 
LIbrarg UFD cluster size? 8 
Llbrarg account base? 04492 
Date last modified <ges>? N 
New files first <no>? N 

Use previous bad block Info <ges>? Y (Not asked If rwt a RSTS disk) 

Format <no>? N (unless a new disk) 

Patterns? 1 (but use 4 at least If not a RSTS disk) 

Proceed? Y (If happg with dialogue) 

4) Continue as follows when the disk is initialized. 

Option; COPY 

DD-rrt1-YY? 

HH;m? 

To which disk? DBl 

Enabling onlg console, disks, and tapes. 

RSTS V7.0 (DBl) 

Option: HARDUR 

HARDUR suboption? HERTZ 50 
HARDUR suboption? CSR 

Controller with non-standard address? DZ0 
New controller address? 160040 
HARDUR suboption? VEC 

Controller with non-standard vector? DZ0 
New vector address? 310 
HARDUR suboption? CSR 

Controller with non-standard address? DZl 
New controller address? 160050 
HARDUR suboption? vec 

Controller with non-standard vector? DZl 
New vector address? 320 
HARDUR suboption? LIST 
(CHECK THAT THE HARDUARE LISTING IS CORRECT) 

HARDUR subopt ion? LF 
3 changes being made 

Rebooting . 

RSTS V7.0 (DBl) 

Option: INSTALL 
Sll? RSTSV7 


Name_ 

Address _ 

_Suite_ 

City_State_Zip_ 

Telephone ( ) _ 

FREE CLASSIFIED AD WITH SUBSCRIPTION!! 

Your first 12 words are absolutely FREE, only $1.00 per word 
thereafter. Use the space provided below. 


Option: BOOT D00 

RSTS V7.0-07 Marine Lab (DB0) 

Option? ST 


Command File Name? PROPER.CTL(This copies files required to run BRIGHT) 


Uhen sgstem shuts down put old disk on DBl: and new disk on DB0: 

Then start with command file BRIGHT.CTL 

(note that DEFAULTS must first be set using BASIC as the RTS) 

The sgstem will come up (without DBl;) when the disk copg is complete. 

A similar process may be used with a disk used as a non 
system disk but of course automatic start up would not be 
possible unless you have more than two drives, in which case 
the process could be done on line. If you have only two the non 
system disk would ahve to have a system on it in order to run 
BRIGHT and do the copying. ^ 


V3.1 I 




















CLEN CLEN 
CLEN CLEN 
CLEN CLEN 


LENUPCLE 

PCLE 

CL 

UP 

EN PC 

ENUPCL 

UP 

EN 

CL 

UP 

ENUPCL 

NUPC 

UP 

EN 

CL 

UP 

EN 

NUPC 

UP 

EN 

CL 

UP 

EN 

NUPC 

UP 

EN 

CL 

UP 

EN 

NUPC 

PCLE 

LENU 

EN 


UPCLENUP UN 
NUPCLENUP UN 
ENUPC UN 


CL 


ENUP 

UN 

PC 

PCLE 

CL 

PCLE 

LENU 

ENUP 

UNUPCL 

UP 

EN 

CL 

UP 

EN 

CL UP 

ENUP 

UN 

CL 

UP 

EN 

CL 

UP 


CLENUP 

ENUPC 

UN 

CL 

UP 

EN 

CL 

UP 


CL 

NUPCLENUP 

UN 

CL 

UP 

EN 

CL 

UP 

EN 

CL UP 

UPCLENUP 

UN 

CL 

PCLE 

CL 

PCLE 

LENU 

DEMONSTRATES 

CLENUP ON 

A 

SMALL 

BUBBLE 

SORT 



2DinL(20X):L(IX)=RNDF0RIX=1XT020X!BUILD UP SORT LOOP 
3&*STARTING SORT ATTIMES(OX) 

4Z1 X = OX: ZX = 20X: WHILEZX: FORJX = 1 XTOZX-1X:IFL(JX)< = L(JX*»'1X)THEN5ELSEL = L(JX) ; 
L(JX)=L(JX*HX):L(JX*»'1X)=L:Z1X = JX!WE NEEDED TO FLIP HERE 
5NEXTJX:ZX=Z1X:Z1X=0X\NEXT:&*S0RTING ENDED ATTIMES(OX) 

6ST0P 


PCLE 

EN PC 

UP 

EN 

ENUPCL 

UP 

EN 

EN 

UP 

EN 

EN 

UP 

EN 

EN 

PCLE 

EN 


00001 !THIS SHORT PROGRAM DEMONSTRATES CLENUP ON A SMALL BUBBLE SORT 
00002 DIM L(20X)\ 

L(IX) = RND 

FOR IX = IX TO 20X 

!BUILD UP SORT LOOP 

00003 PRINT 'STARTING SORT AT'; TIMES(OX) 

00004 Z1X = 0X\ 

ZX = 20X\ 

WHILE ZX\ 

FOR JX = IX TO ZX - 1X\ 

IF L(JX) <= L(JX + IX) THEN 5 
ELSE L = L(JX)\ 

L(JX) = L(JX + 1X)\ 

L(JX + IX) = L\ 

Z1X = JX 

!WE NEEDED TO FLIP HERE 

00005 NEXT JX\ 

ZX = Z1X\ 

Z1X = 0X\ 

NEXT\ 

PRINT 'SORTING ENDED AT'; TIMES(OX) 

00006 STOP 


CLENUP Ts a service that saves you money and tine. With the cost ol 

program maintenance ever increasing^ CLENUP will make your BASIC PLUS 
programs easier to read so your programmers will spend less time and money 
on the program changes needed. 

CLENUP does not change the logic or efficiency of your programs - CLENUP 
reformats the source code to a pleasing, visually logical format. CLENUP 
is not expensive, and in most cases, your programs will be back within one 
week. 


For additional information, please call: 

or write : Aim Up 

Attn: CLENUP office 

370 Seventh Ave. Suite #434 

New York, N.Y. 10001 


Gary Oppenheimer 
Arnold Singer 


(212)787-2416 

(212)279-3995 


Note: BASIC PLUS is a trademark of DEC. 
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TECHNICAL NOTES 

By The RSTS “Pro” Staff 


An understanding of what your compu¬ 
ter is doing at the basic level is important in 
evaluating performance (or lack of it) and 
deciding what can be done to improve it. 

This will be the first in a continuing 
series to help you understand the physiol¬ 
ogy of a PDP11.1 am not a hardware expert, 
lots of people think 1 am not a software 
expert, but 1 am willing to stick my neck out 
and let you have the ideas as 1 understand 
them. As an editor. 1 will start and keep the 
ball rolling. 1 will, when offered, submit 
other comments and articles to the new¬ 
sletter. 1 ask that you send them to me so 
that 1 may exercise my editor's perogative 
and put them in some order. 

This first article will deal with input and 
output. All PDP 11 devices have associated 
with them a set of registers which may be 
accessed as if these registers were in the 
main memory. Each device has associated 
with it at least two registers: a)a control 
and status register and. b)a data buffer 
register. Some devices have more than two 
registers. For example, one of the simplest 
devices attached to the PDP 11 may be the 
console terminal. It has four addresses or 
registers associated with it. They are: 
1)printer data. 2)printer status. 3)key¬ 
board data, and 4) keyboard status. You will 
have by now noticed that the console is 
really two devices: a reader and a printer. To 
print a character on the console printer, all 
that is necessary is that you deposit via a 
move or similar instruction the seven bit 
ASCII code for the character you wish to 
print into the printer's data register and it 
will be printed. The printer status register 
will contain a bit that will say done or ready. 
Since the CPU runs faster than the printer 
can print, it is necessary after printing a 
character to check to make sure that the 
character has been printed before deposit¬ 
ing the next character in the data buffer 
register to be printed. In an analogous 
fashion, when a character is typed at the 
keyboard, it can be read' by reading the 
data register of the keyboard. After read¬ 
ing.' a bit in the status register is set to 
indicate that no data is currently available in 
the data register. This means, of course, 
that you now have read the data that was in 
there. Note that reading a character from 
the keyboard does not echo it on the termi¬ 
nal printer. This must be done by putting 
the data that has been read into the printer 
data register thus echoing the character 
read. 

Notice that there are no true I/O 
instructions; only the transfer from 
memory location to memory location is 


necessary in order to do input or output. 

Although this type of input/output 
programming is simple and straightfor¬ 
ward. it would be inefficient in the case of 
trying to control a multi-terminal system. 
For instance, a system that had 16 key¬ 
boards attached to it would necessitate 
that the controlling program periodically 
scan the data or control registers of the 
keyboard to see if anything had been input. 
If nothing had been input on that keyboard, 
it could continue to the next keyboard to 
see if there was any data there to be input. 
This technique is known as polling. That is. 
the controlling program polls or asks each 
terminal if there is data that it has to trans¬ 
mit. If not. the CPU continues around check¬ 
ing each terminal or device to see if there is 
any action to be taken. Thus, it becomes a 
totally CPU-bound job to keep checking your 
devices to see if there is any input to be 
done. A second and. as you can see. more 
efficient class of I/O programming is the 
so-called interrupt directed input and out¬ 
put. In the control and status register of our 
console terminal, there is a bit that enables 
an interrupt. That is. when data becomes 
available in the data register in the case of 
input or output, it causes the program to 
interrupt. What happens when the inter¬ 
rupt occurs from the console terminal? At 
every CPU cycle the PDP 11. via hardware, is 
checking to sey if an interrupt has occurred. 
The PDP 11 utilizes a priority vectored inter¬ 
rupt scheme. Let's take them one at a time. 
The priority of an interrupt directs that if 
there is. in fact, more than one interrupt 
occurring at the same time which interrupt 
will be serviced first. If interrupt processing 
is in progress and a higher priority interrupt 
occurs, the lower order interrupt service 
routine will be interrupted by the higher 
priority interrupt. 

The vectored interrupt scheme allows 
interrupt processing via hardware to occur 
directed to particular memory locations. For 
instance, an interrupt caused from the con¬ 
sole terminal keyboard causes the interrupt 
to trap to location 60 while an interrupt 
from the console terminal printer causes a 
like interrupt to location 64. At these loca¬ 
tions then, the user, in his program, may 
specify a particular address where the 
interrupt service routine is then to begin. 
This allows hardware to trap the particular 
location and relieve software of the job of 
determining which device interrupted and 
now what to do about it. Thus, when a 
character is typed on the console keyboard, 
if the interrupt enable bit has been set in 
the control and status register for the key¬ 


board. an interrupt will occur. The interrupt 
will then trap to location 60 where the user 
could specify a service routine to handle an 
input type on the console terminal. In a 
similar fashion, when a power fail is 
detected by the system, a hardware inter¬ 
rupt is generated with a vector interrupt to 
location 24. Location 24 directs the proces¬ 
sor to the proper service routine to save 
registers and necessary memory on the 
power fail sequence. We have now dis¬ 
covered two important concepts about 
input/output programming on the PDP 11: 
those of interrupt, priority interrupt and 
vector direction of the particular Interrupt. 
These are not unique to the PDP 11 and can 
be found throughout the computer 
industry. 

You will have noticed that it requires 
the central processor to be involved with 
every character transmitted to our console 
terminal. That is. if we wish to transmit to 
the console terminal data that is located in 
ten contiguous memory locations, it is 
necessary for the CPU to be involved with at 
least ten instructions, and in real fact, many 
more. The CPU must deposit or move from 
one real memory location to the data buffer 
or data register of the particular device 
each character separately for the transfer. 
This is all right for a slow device such as the 
DEC writer, but can cause problems for 
devices that go quite a bit more rapidly. 
When you consider that an LA 36 transmits 
30 characters a second while a TU 10 mag¬ 
netic tape transmits 36.000 characters a 
second, the overhead involved with trans¬ 
mitting characters through a magnetic 
tape would greatly exceed that of an LA 36. 
There is another type of I/O transfer availa¬ 
ble within the PDP 11 hardware. This Is the 
so-called NPR transfer. The PDP 8 refers to 
a data break facility and a generalized com¬ 
puter term for this is devices that work on a 
cycle stealing basis. (Non Processor 
Request) Devices that operate on a cycle 
stealing basis steal an occasional cycle from 
the CPU in order to do their input and out¬ 
put. This means that the devices them¬ 
selves have the ability to do data transfers 
from memory to the device or from the 
device to memory without processor inter¬ 
vention. These "smart" devices need only 
be told by the processor what location in 
memory to begin transfers from, how many 
locations to transfer, where on the peri¬ 
pheral device to begin putting the data and 
then these devices begin doing it by them¬ 
selves. When they are finished, they auto¬ 
matically interrupt the CPU. Take the 
situation of transferring a file from disk to 
memory. The device, in this case the disk, 
needs to be told at what memory locations 
to begin putting the data, how many words 
(Bytes) to transfer, and where on the disk 
to begin getting the data. 
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What Can One. Coupon Get For You? 

A Free Resume Kit... 

From the Only Employment Service with Twin Inhouse PDF 

11/70RSTS systems. 

An Invaluable Aid In Your Job Changing Process 

The Kit presents in an uncomplicated format what we’ve learned in over 15 years of employment service to 
the computer industry. Fill out the coupon and return it to us. We’ll send you our free Resume Kit. 


Name 

Applications 


Address 

Degree 

Yr. Grad. No. Yrs. Experience 

City 

State Zip Current Employer 


Phone 

Job Title 



Hardware 


O 


Languages 

We have many exclusive Data Processing positions available — locally and nationwide. 

P Scientific Placement, Inc. Employment Service 

P O Box 19949 Houston. Texas 77024 (713) 496-6100 


RSO 3/81 


Once these registers are loaded, the I/O begins to take place in 
the sanne fashion as a character was printed on the console terminal 
when the printer register was loaded with the data to be printed. 
When the number of words that we specified to be transferred has 
been transferred, the device automatically interrupts the CPU for 
more information. This Is the so-called stealing of a cycle from the 
CPU. It would be possible to transfer many thousands of Bytes, or 
words, of information between peripheral devices only utilizing a very 
few cycles of the CPU. While this transfer Is going on. the CPU is free 
for other instructions. 

In the next article, we will deal with more specific high-speed, 
large data capacity devices, particularly RPO 2. 3. 4. 5 and 6 disk 
drives. We will also attempt to talk about the Unibus structure, how 
data is transferred over the Unibus and the Unibus extensions: the 
Fastbus and Massbus. 

For more information about this article and future articles. I 
suggest the following reading. In 1968 or 1969. DEC published a book 
called. Introduction to Programming. Although this book Is based on 
the PDP8 series of computers, many of the concepts have carried over 
to the PDP 11. Next, the PDP11 Peripherals Handbook contains in its 
introduction and beginning chapters useful information on program¬ 
ming peripheral devices. The addresses and use of different control 
and status registers for different devices can be found in this particu¬ 
lar book I have a 1973 version of the Peripherals Handbook as well as 
the 1976 version and they are somewhat different. If you can get both 
of them, you are that much better off. In addition to the aforemen¬ 
tioned, it is also useful to have the Processor Handbook for the 
particular PDP 11 that you happen to have. It doesn’t hurt to have 
processor handbooks for PDP 11 s that you don’t have. also. There are 
differences you will find between the LS111 and the PDP 11 /70. If you 
take the time to read and look through some of these books, you will 
find all of the information that we have talked about here contained in 
them as well as many examples which space precludes us from 
putting In the magazine. 

I hope this first article has been Interesting to all. useful to some 
and boring only to a few. I apologize for Its inaccuracies and look 
forward to your comments. ^ 


DKS.II.VAX 

The 

proy^ 

Productivity 
Tooi 

For DEC 11 and VAX (Native Mode Tooll 
In Use For 10 Years... 140 Sites Installed. 
Technology Leader in Oata Base Systems. 


Call For A FREE 

BRIEFING MANUAL 


( 617 ) 437-7600 

AMERICAN USED SOFTWARE COMPANY 

P.O. Box 68, Kenmore Station, Boston, MA 02215 

DRS is a product of Advanced Data Management 
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BLDCTL: Control File Processor 

By David Spencer 


The concept of job control files is far from new. On 
RSTS/E we have as control file processors both BATCH 
and ATPK [and now QUE.11. ed.]. These programs accept 
stream input files with iines similar to typing at the 
terminal. All this is well and good, provided that every 
control stream only needs to do one thing, and do it the 
same way every time. 

BLDCTL is a TECO program written to pre-process 
job control files. The most unique feature of BLDCTL is 
its ability to ask questions during the process phase, and 
in doing so, mold the output stream according to the 
responses. 


General Concepts 

BLDCTL was written in TECO mainly because TECO 
has a rich set of text processing commands already 
defined within it. However, any other language would 
have done the job just as well. 

The commands to BLDCTL are found within the 
source control file itself. Text processing is triggered by 
a set of special characters found at the beginning of the 
text line. 

: Internal comment, will not appear in the output stream. 
& Displays line to TTY. becomes a "I” in output. 

? 


Full format: ? t input 

Where: 

name[help test]default * min * max * code 

"?" 

Specifies accept user input. 

"f " 

Indicates start of name for user input. 

"input name" 

Is replaced with user input 


Ends input name, starts help text. 

"help text" 

Displayed when user types "?”. 


Ends help text, starts default text. 

"default" 

Default input when flagged. 

• 4 • 14 

End of default value. 

“min” 

Minimum length of user input. 

44 * 44 

Separator. 

“max” 

Maximum length of user input. 

44 « 44 

Separator. 

"code" 

BLDCTL user input edit code. 


To apply default, make "min” a zero. If the user 
enters a then the help text will be displayed. 


. Conditional command 
.IF text = constant [or] .IF text < > constant: 

.END 

When found, the conditional in the ".IF" statement 
will be tested. If the test is TRUE, then the lines be¬ 
tween the ".IF" and the ".END" will be INCLUDED in 
the output stream. If the conditional is NOT TRUE, 
then the lines between the ".IF” and the ".END" will 
be EXCLUDED from the output stream. 

":" operator 

The semi-colon character defines an internal com¬ 
ment. This allows lines that are useful to see in the 
source (such as modification histories) to be omitted 
from the output. I have seen BATCH chew up many 
minutes processing simple comments. 

"&" operator 

Use of a line beginning with an ampersand will print 
the remaining text to the terminal. This is useful for 
identification of streams, warning messages, etc. 

"?" operator 

This command is the heart of BLDCTL. It allows 
questions to be asked of the user at file build time. After 
the input is accepted, everywhere in the control file 
where the prompt name is found bracketed by up- 
arrows is replaced by the user response. This allows 
dates, numbers. Y or N answers, and all sorts of input to 
be inserted into the control stream. In addition, there is 
an unimplemented parameter called code. This number 
can be used in modified version of BLDCTL to edit user 
input. 

".IF. .END” 

The ".IF" conditional allows blocks of code to be in¬ 
serted into or deleted from the output stream. There are 
two forms of the conditional. The first form is a com¬ 
pare by a " = ”, the second with a "< >". These tests act 
just as they look in BASIC. If the condition is false 
(Y = N), then the code from that point to the closing 
".END” wiil be DELETED from the output stream. If the 
conditional Is true, then the text remains. Please note 


FINALLY, A TERMINAL FOR 

DEC PROGRAMMERS 

THE PROTERM 80'REDUCES^ 


Program devoiopment tfm«.80X 

Disc occessss.90X * 

CPU iim«.66X 


PUT THE TEXT EDITOR IN YOUR TERMINAL... 

NOT IN YOUR CPU ! 

PROGRAMMING MODE: 

Escap« koy emits # In programming mode. These keys are lower case: *A S ! & 

60 variable length Tvjnctions thot can type to host, display, or type to host and d i sp I oy . 

Samples of single key functions: LISTNH OPEN ^ FOR INPUT AS FILE ♦ , CLUSTERSIZE 

PRINT ASCIICMIDCAS, 1%, 1 FOR !%=!% TO LENCAS) GET BLOCK FOR 1%=]% to 

PROTERM 80 enters fill in the blank mode at the ^ character. Control codes may be embedded. 
Save/Send favor I te phrase. Ex. RUN DB7 : C213, 1593VT5DPY'U10'%'T'Sn'D' C' “embedded <CR> code) 
Editing f ea tures IncIude Insert/delete I ine/character, transmIt I ine/page, copy line. 
?Fatal and /^Warning messages are trapped and displayed on the bottom I ine of the display. 
The PROTERM 80 marks the IIne Cnot IIne that causes BASIC to generate a ?Fatal error. 

If you don't I Ike these load your own favorites. The PROTERM 80 is a PERSONAL terminal . 

The PROTERM 80 has been used with DEC BASIC's, ROSS/V, DATA BOSS / 2, WS-11 and FINAR. ♦ 

ECHO CONTROL MODE 

All the f eatures DEC f orgot . Field at tr Ibutes IncIude new/oId, a Ipha, numerIc, must fill. 
Up to 64 down IoodabIe functions. Type oheod with doto compression. Operates on channel 0. 
Local editing keys “^U, rubout, cursor left/right, de I e t e/I nser t character. “Peek o boo*. 
If you can use INPUT LINE and remote cursor position ALL the rest Is done by the PROTERM 80. 
Provides a RSTS terminal environment on ANY host, <LF>, <FF>, <ESC>, etc. can be delimiters. 

ANSI MODE: 

If you wont Just a VT—100 type terminal, push a key and operate In ANSI mode, VT—52 mode, 
OR use 1-156 column widths with full editing, format protect, block mode and other features. 


^ Reductions may be less for those that write perfect code the first time. 


PWTDV M It Ikt if tf Dll P«l« ItrvlMli Cv^vtlltn, 

ea YT-ia •( Dl«<l«l 

m/y It Ikibw 0«U Pr«««ilr«, Ik.. 

Dill ISS / 2 It iU mf n«>llt CmfUm-. Ik.. 

Hal, Htrllt 

16-il U Ihi IrtiMi krltmd MflUl $•!«, 

ImI Utlm. CtllftntU 

me u iu WtiMi 0r riM- Uiiu 




DATA 



RM I NAL 6 
RPORATI ON 


FOR MORE 
INFORMATI ON; 

telex 9^ 

924-325 

cal I 

(617)359-41 88 
or wr i te 
45WEST ST. 

ME DF I E L D MASS. 

02052 
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that spaces in the conditional text are meaningful. 

Another item worth noting is that ".IF” blocks can 
be nested within other ".IF" blocks. Of course, any inner 
".IF", blocks will be deleted if the outer block is false. 


Running BLDCTL 

BLDCTL is designed to be entered by either normal 
run or CCL entry. The default extention on input is 
".PCF" (Pseudo Control File). The output default is the 
common “.CTL". 

On run entry, both the input file name and output 
file name are accepted from the keyboard. There is no 
default for the input file. The output file will, however, 
default to the input file name with the proper default ex¬ 
tention. 

For CCL entry, any CCL name will do. If only the CCL 
is given, then BLDCTL continues as if it were entered 
through RUN entry. If a filename is given, it is assumed 
to be the input file name and generates a default output 
file. Input and output file can be specified by an equals 
character, in the form of "out = in". 


Final Notes 

Although BLDCTL is a complete, functioning pro¬ 
gram the current version is not intended to be the last. I 
openly encourage modification to the primary program. 
Anyone with a reasonable knowledge of TECO should be 
able to make changes to the code. 

The examples should reasonably demonstrate in 
short form the capabilities of BLDCTL. About the source 
listing: the only control characters in the source are the 
two escapes at the very end of the program. These have 
have been underlined to indicate them as such. Please 
don't be fooled by the alignment of the comments and 
don't use tabs to move out to the margin. 

Any correspondence concerning BLDCTL can be sent 
tO: 


David Spencer 

2901 South Sepulveda Suite 305 
Los Angeles, Calif. 90064 


Special offer — 

A 9 track 800 bpi distribution — 
send $25 check or money order to: 
Dave Mallery 
70 James Way 
Southampton, PA 18966 


I I 

1 BLDCTL.TEC I 

1 1 

I Author: David Spencer I 

I 1 

1 Audit trail 1 

I 1 

I dd-nuran-yy Who Why 1 

1- I 

1 04-NOV-80 DJS First version 1 

1 1 

1 Q-Registers I 

1 A$ Parse input file ! 

! A% Scratch ! 

1 B$ Parse output file ! 

1 B% Scratch 1 

I C$ Evaluate input by dispatch code 1 

1 C% Dispatch code 1 

1 D$ Default input 1 

1 E$ String equate macro ! 

I E% String equate result 1 

I F$ Holds input file spec 1 

! G$ Get input from user 1 

1 H$ Help text I 

1 1% ".IF" depth counter i 

1 J$ Left string argument l 

1 K$ Right string argument l 

1 L% Line counter i 

! M% Minimum length of input l 

1 N% Maximum length of input l 

1 P$ Input prompt text i 

I Q% String equate operator (=, <>) 1 

1 R$ Input response from user 1 

I S$ Scratch i 

1 T$ Delete ".IF" ballon l 

1 X$ Open input file spec l 

1 y$ Open output file spec ! 

I 1 

j ************************************* j 

§EI// 1 Alternate stream off I 


************************************* j 

1 

Phase one: load macros l 

! 

************************************* J 


1 Load open input file macro i 


§^UA$ 

J §I/:ER/ ZL 27@1// OXS OK MSUS 
G* R 0A-"“."= D I C ' 

.US :@-S/./"S QSJ 

I 

QSJ @I/.PCF/ 


! Do full spec, eat # 1 
1 Insert spec, drop "." ! 
I Found, go back to filel 

! Append default ext l 


OXF OK 

e^A/Opening / :GF §"A/ for input.../ 13"T 10"T 
@I/:ER/ GF 27@1// 

§I/"U §'‘A%?Can't find file or account, aborting... 


! Save filespec 


% HK EK EX V -2XS -2K MS 
§I/ER/ GF 27@1// OXX OK 
$ 


! Check file, abort none! 
! Open for real now 1 


1 Load open output file macro 
§“UB$ 

Z"= GF :§-S/./"S R K • • 

J @I/:ER/ ZL 27@1// OXS OK MSUS 
G* R 0A-“"."= D I C ' 

.US :0-S/./"S QSJ 

I 

QSJ @I/.CTL/ 

OXY OK 

§^A/Opening / :GY @^A/ for output.../ 
@I/:ER/ GY 27§1// 

@I/"U 13"T 10"T '/ -2XS -2K MS 
§I/EW/ GY 27§1// OXY OK 
$ 

1 Load "dispatch code" processor 

@"UC$ 

< 

MG 

0:QR-"''?"- :QR-1"- §'‘A/Help text is 
:GH 13"T 10“T F< 


I 


! Use input for default ! 
1 Do full spec, eat # ! 

1 Insert spec, drop "." ! 
! Pound, go back to filel 

1 Append default ext i 

! Save filespec i 


1 Check file, fix margin! 
! Open for real now ! 


1 


! Do the input from user! 
follows:/ ll^T 10"T 

! Give user help ! 


:QR"« QM"= 


.UA GD QA,.XR QA,.D 0; 
@^A/%No default allowed. 


type 


! Pass default if set ! 

"?" for help text./ ll^T 10"T F< 
! Otherwise an error ! 


:QR-QM"L @''A/%Input must be at least / QM:= ^''A/ character/ 

QM-1"N ""s"T • @"A/ long./ 

13"T 10“T F< ' ! Too short ! 

:0R-QN"G @''A/%Input must be no more than / QN:= @''A/ character/ 

QN-1"N ’‘“s^T • @“A/ long./ 

13''T 10*T F< ' ! Too long ! 

^ ! Input must be good ! 

$ 


! Load string equate macro i 

§'‘UE$ 

QIUS %I "( OK §"US/<»/ -lUE -lUQ 
:@S/*EGS/"S -D 0A-“">"= D OUQ ' 

OXJ OK L 2R OXK OL K 
.UA J :QJ-:QK"N OUE 
I 

GJ J @I/::S/ GK 27§1// OXK OK 

MKUE J :QJD 

QAJ (QE+QQ+1)"= MT ' ' 

$ 


! Bump count, init scan ! 
! Find equate, set flags! 
! Save left, right args ! 
! Test lengths ! 

! Leave first arg, build! 
! macro to test with 2nd! 
! Test and save result, ! 
! clean up afterward ! 
! Delete text if false ! 
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1 Load user input get macro 


@*UG$ 

ET#32768ET ,UA J :GP 

< 

*TUB 

QB- 3"« HK EK EX • 

QB- 4"» OK 13"T 10"T ;GP F< • 

QB- 10"« 13"T 0; • 

QB- 12"- 13“T 0; • 

QB- 13"- “TUB 0; ' 

QB- 18"- 13“T 10“T :GP OT F< • 

QB- 21"- OK 13“T 10“T :GP F< ' 

QB- 26"- 13“T 10“T HK EK EX ' 

QB- 27"- 13“T 10“T 0; ' 

QB-127"- O^Q"- 7“T 

I 

R ET&2"= 0A“T 

I 

0A-32"L 2US 

I 

lus • 

QS< 8“T 32“T 8“T > ' 

D ' 


F< 

QB@I// 

> 

OXR OK QAJ 

$ 


1 Load text delete macro 1 

@“UT$ 

< ::@S/.IF /"S OL %I “[ • 

::@S/.END/"S (QI-l)UI ' 

OL K QS-QI"N .-Z; > ' 


Phase two: parse CCL command 


********* 


:@S/ /"S OK I HK ' 1 Remove CCL name I 

Z"N I CCL found 1 

:@S/=/"U ZJ OXS J GS §1/=/ ' 1 Insure specs I 

-D OXY OK ZJ MA I Open input file I 

|GY mb I Open output file I 

§ A/BLDCTL VOl.OO/ 2< 13“T 10“T > 1 Display header 1 

§“UP/File for input? / MG GR :QR"= HK EK EX ' MA 

^ I Get input file I 

@ UP/File for output? / MG GR MB 1 Get output file ! 


MX MY 


I Now open files up I 


******** 


Phase three: Main routine 
************************************* 


13“T 10“T 

< “N"- A > • 

< 0A-““;"= K I L • .-Z; > 


1 Space a line 
1 Pull in all the file 
! Remove internal remark 


J OUL 

< 

0A-““&"- D §1/1/ T ' 

0A-““?"- 

13“T 10“T 

D §1/1/ .UA :§S/[/"U §01ERRORI ' 

R .UB QA,QBXS 94§:“US// 

QAJ C §“UP/Enter "/ .,QB:XP §:“UP/" 

QBJ C .UB :§S/]/"U §OIERRORl ' 
QB,.-1XH 

.UB :§S/*/"U §0!ERROR! ' 

QB,.-1XD 

\UM C \UN C \UC 

MC 

< §S/“EQS/; “SD GR > 


I Zero line counter 1 

1 Display line command I 

1 Blank line before get I 

1 Get replace text 1 

: / 

! Save input prompt l 

I Save help text 1 

1 Save default text ! 

1 Get min, max, code 1 

! Make all replacements 1 


§OISKIPl 


1 ERROR 1 

§“A/Ignoring invalid format line:/ 

13 T 10“T QAJ T 1 Display error message i 


ISKIP! 

"I 

%L 

J QLL .-Z; 

> 


1 Eat any free numbers 1 
1 Bump count ! 
I Eat any free numbers 1 
I Drop to next, end? 1 


J OUI 


::§S/.IF /"S ME -L ' 
::§S/.END/"S (QI-l)UI OL K -L ' 
L .-Z; 


I If found, do equate 1 
1 Close ".IF" ballon 1 


EX 

11 


1 Mission complete, the I 
1 world is again safe 1 
1 for democracy. i 


PIP EXMPLl.PCF 
$JOB/CCL/NOLIMIT 
! 

! Batch stream name: TEST 
I 
; 

; Audit trail 
; Date Who Why 

; 22-NOV-80 DJS Create stream 


MACRO-II 

RSTS/E 

Situation: You want to use MACRO-II 

with a RSTS/E system. 

Problem: Programmers can’t use it 

or get good training. 

Solution: A concentrated course at 

Saint Mary’s College 
July 7-17, 1981. 


For full details, write: 

Institute for Management 
and Information Systems 
Box 56 

Saint Mary’s Collese I 

Winona, Minnesota 55987 


Don’t buy a VAX ... 

Call MACRO MAN 

for superior performance 
RSTS internals 
custom Macro programming 
RSTS or 11/M 

SPECIAL OFFER 

MACRO SYSTAT-V7.0 
super speed, ‘no’ load, great features 
send $40 and installation name 

MACRO UTILITY LIBRARY 
build your own! — call for information 

Bob ’Macro Man’ Meyer 

9 Lockwood Avenue 
Heldsboro. NJ 08505 
609-298-9127 
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the IBM Solution 

TM 

HASPBOX 


(yULTS 


the CDC Solution 


UT200B0X 


l(g®|g[p<g)[^^5rD(g)^ 

rSTS'VAX'RSX! 

DATA COMMUNICATIONS 


• INSTALLATIONS THROUGHOUT NORTH AMERICA AND EUROPE 

• FRONT END PROCESSOR-BASED FOR LOW OVERHEAD 

• FULL LINE UTILIZATION FOR HI>THRUPUT (UP TO 19.2 KB) 

• USER INTERFACE DESIGNED FOR RELIABIUTY AND SIMPLICITY 


6iA/ASn/20SA COLUMBUS, OH A3212 USA TWX 810 A82 1631 


AUTHORS!! 

SEND YOUR ARTICLES TO THE 
RSTS PROFESSIONAL ON MAG 
TAPE, IN EITHER RNO, PIP OR 
WORD-11 FORMAT. 

Eighty percent of this issue of the RSTS Profes¬ 
sional was transmitted via telecommunications 
from author’s mag tapes to phototypesetting 
equipment and was not retyped. 


1 Print display text 
! 

StThis batch does daily batches and can close the week 

I 

! Get responses to questions 
! 

?''Do week-end processing [Enter "Y" if the week is closing] N*0*1*0 
! 

! Batch stream code 
I 

1 Phase 1 — Process all checks 
! 

$RUN CHECKS 

.IF "DO WEEK-END PROCESSING"=Y 
1 

1 Phase 2 — Close the week 

I 

$RUN CLOSER 

.END 

$EOJ 

Ready 

PIP EXMPL2.PCF 
; Stream to compile programs 
; Print display text 


; Get responses to questions 

’"compile with BASIC+2[Enter "Y" if compiling with BP2]Y*0*1*0 
; Do compiles 

!if "compile with BASIC+2"=Y 
RUN $BASIC2 

LOCK/TSK/LINE/CHAIN/DOUBLE 

.END 

OLD SOURCEiBMPl00.BAS 
COMPILE 

OLD SOURCE:BMP200.BAS 
COMPILE 

OLD SOURCE:BMP250.BAS 
COMPILE 

OLD SOURCE:BMP900.BAS 
COMPILE 

.IF "compile with BASIC+2"=Y 

EXIT 

PIP 

TASK:.BAC<232>=BMP100.TSK,BMP200.TSK,BMP250.TSK,BMP900.TSK 
BMPlOO.TSK,BMP200.TSK,BMP250.TSK,BMP900.TSK/DE 
"Z 

.END 

.IF "compile with BASIC+2"<>Y 
PIP 

TASK:<232>=BMP100.BAC,BMP200.BAC,BMP250.BAC,BMP900.BAC 
BMPlOO.BAC,BMP200.BAC,BMP250.BAC,BMP900.BAC/DE 
"Z 

.END 

Ready 

RUN BLDCTL 
BLDCTL VOl.OO 

File for input? EXMPLl 
Opening EXMPLl.PCF for input... 

File for output? KB: 

Opening KB:.CTL for output... 

This batch does daily batches and can close the week 

Enter "Do week-end processing" : Y 
$JOB/CCL/NOLIMIT 
! 

! Batch stream name: TEST 
I 
1 

I Print display text 
! 

IThis batch does daily batches and can close the week 
! 

! Get responses to questions 
! 

!"Do week-end processing[Enter "Y" if the week is closing]N*0*1*0 
! 

I Batch stream code 
I 

! Phase 1 — Process all checks 

I 

$RUN CHECKS 
! 

! Phase 2 — Close the week 


1 

$RUN CLOSER 
$E0J 

Ready 

RUN BLDCTL 
BLDCTL VOl.OO 

File for input? EXMPLl 
Opening EXMPLl.PCF for input... 

File for output? KB: 

Opening KB:.CTL for output... 

This batch does daily batches and can close the week 

Enter "Do week-end processing" : ? 

Help text is as follows: 

Enter "Y" if the week is closing 
Enter "Do week-end processing" : N 
$JOB/CCL/NOLIMIT 
! 

1 Batch stream name: TEST 

I 

! 

1 Print display text 

IThis batch does daily batches and can close the week 
! 

1 Get responses to questions 
! 

1"Do week-end processing[Enter "Y" if the week is closing]N*0*1*0 
! 

1 Batch stream code 
! 

I Phase 1 — Process all checks 

I 

$RUN CHECKS 
$EOJ 

Ready 

RUN BLDCTL 
BLDCTL VOl.OO 

File for input? EXMPL2 
Opening EXMPL2.PCF for input... 

File for output? KB: 

Opening KB:.CTL for output... 

Enter "compile with BASIC+2" : YES 

%Input must be no more than 1 character long. 

Enter "compile with BASIC+2" : Y 

!"compile with BASIC+2[Enter "Y" if compiling with BP2]Y*0*1*0 
RUN $BASIC2 

LOCK/TSK/LINE/CHAIN/DOUBLE 
OLD SOURCE:BMP100.BAS 
COMPILE 

OLD SOURCE:BMP200.BAS 
COMPILE 

OLD SOURCE:BMP250.BAS 
COMPILE 

OLD SOURCE:BMP900.BAS 

COMPILE 

EXIT 

PIP 

TASK:.BAC<232>=BMP100.TSK,BMP200.TSK,BMP250.TSK,BMP900.TSK 
BMPlOO.TSK,BMP200.TSK,BMP250.TSK,BMP900.TSK/DE 
"Z 

Ready 

RUN BLDCTL 
BLDCTL VOl.OO 

Pile for input? EXMPL2 
Opening EXMPL2.PCF for input... 

File for output? KB: 

Opening KB:.CTL for output... 

Enter "compile with BASIC+2" : N 

!"compile with BASIC+2[Enter "Y" if compiling with BP2]Y*0*1*0 

OLD SOURCE:BMPlOO.BAS 

COMPILE 

OLD SOURCE:BMP200.BAS 
COMPILE 

OLD SOURCE:BMP250.BAS 
COMPILE 

OLD SOURCE:BMP900.BAS 

COMPILE 

PIP 

TASK:<232>=BMP100.BAC,BMP200.BAC,BMP250.BAC,BMP900.BAC 
BMPl0 0.BAC,BMP2 0 0.BAC,BMP25 0.BAC,BMP9 0 0.BAC/DE 
"Z 


Ready 
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DECUS CANADA 

By Carl Marbach 


Your intrepid Editor winged his way North again this year to visit 
Montreal, P.Q. the site of this year’s Canadian Decus Symposium. I 
met many of the friends I had seen for the first time last year, and 
wondered privately why I only see them at the Canadian Symposium; 
but then I don’t see a lot of Americans at these meetings either. Decus 
is Decus whether its north or south of the border and 1 must confess 
the northern branch is much friendlier than its southern neighbor. 

Montreal is a delightful city filled with big city noises and smells, 
but small town friendliness. Bonjour is the greeting of the day and I 
admit to feeling somewhat inadequate if bi-lingual means I speak 
COBOL, BASIC, DIBOL, RPG, and FORTRAN but no French. Customs is 
no problem (What are these magazines????) and the proximity to the 
States argues for some more attendance from the south. The 
restaurants are... but on to the technical end of this meeting. 

Most sessions were translated from English to French but not 
the other way around, translators were stationed in little booths in 
each of the rooms of the Queen Elizabeth (LE REINE ELIZABETH) 
Hotel. The sessions were held from Wednesday through Friday with 
Tuesday saved for seminars (tutorials etc). I can’t get to everything I 
want to hear, there is Just too much. When are we going to get a 
timely, fully prepared proceedings and/or the availability of cassette 
tapes of the sessions? Here then is a distillation of my highlights of 
what I could hear. 

A rehash of the intricate Terminal handler for RSTS. Isn’t this go¬ 
ing to be rewritten soon anyhow? It is enlightening to see how com¬ 
plicated it can be just handling people typing away at keyboards, sort 
of reminds me of my first PDP-8 program: Accept a character and 
make it echo on the keyboard. Took me a whole day! Now do it using 
interrupts. Another day! Echo control?? Forget it. 

How about VAX performance. An 11 /750 peaks out at about 80 
terminals due to memory limitations white an 11 /780 (4MB) kept go¬ 
ing to at least 128. If you are not CPU bound, an 11 /70 did aimost as 
well, although I don’t know where it got enough small buffers. The 
summation with lots of caveats was 30-50 users for the 11 /750 
more for the 11 /780 white a RSTS system (11 /70) was good if you 
were not CPU bound. 1 asked when a second Unibus would be a good 
idea and when a massbus would be a good idea and when a second 
massbus would be a good idea. They didn’t know. Didn’t make much 
difference they thought. 1 don’t believe it. A massbus has a band¬ 
width much larger than the unibus, and I know that my disks could 
saturate the unibus and I have an 11 /70, the VAX must be able to 
swamp the unibus in a COMMERCIAL environment. I’d like to bet that 
there is a huge difference between a unibus VAX and a massbus one, 
and -that by judiciously choosing when to add more you can fuily 
utilize the CPU and the disks. Channels for disks is an IBM type word 
but it starts to mean something for VAX. 

There were many more sessions deaiing with specific RSHTS ap¬ 
plications and how professional people were supporting their 
customers. We ought to know by now that in order to maintain soft¬ 
ware you must have standards, and lots of other conventions that 
you live by. This is where you can see and hear what people have done 
that have made it past a few years. It is always great to be able to 
hear from these COMMERCIAL users. The atmosphere in Canada 
seems to support them better than we do in the Lower 48. 

I came, I learned and I went home knowing more and feeling 
that the trip to Canada and Decus was one that I hope I won’t miss in 
the future. Good Job Decus people. Keep up the good work. 
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Access Control 
and Utilization Monitor 

By C.M. Battistel and Ed Giovanella 

Open Learning Institute, 7671 Alderbridge Way, Richmond, BC, Canada, V6X 1Z9 


Many installations find that the access control and protec¬ 
tion provisions provided by RSTS are often inadequate or are 
too inflexible to meet their needs. For example, consider the 
situation where we have ten users, each of whom must have 
access to a different combination of five programs. Using RSTS 
protection codes and account placement of programs and files, 
it is impossible to implement controlled access to these pro¬ 
grams. Further, if the combinations of programs to be 
accessed by an individual were to change, the whole account, 
protection code structure would have to be changed. Clearly, 
although RSTS may provide a reasonable level of access control 
where there is little overlap of program access requirements, it 
is not adequate in most commercial environments. 

Another inadequacy of RSTS exists in terms of utilization 
monitoring. The information provided by MONEY while useful, 
does not provide enough detail for many installations. It is, for 
example, useful to know not only who Is using the system, but 
what programs account for the biggest load. This is especially 
true in an environment where charge-back and priority setting 
is important. 

There exist instances when a program should not be run 
concurrently with specific other programs. An example of this 
is running a General Ledger Close program while another user 
Is running a G/L data entry program. Again, we have found 
that RSTS and RMS do not handle this situation satifactorily. 
The typical RSTS solution would be to make one program open 
the file ALLOW READ. However. If this is done when a program 
is run against the same file that opens the file ACCESS READ 
and ALLOW MODIFY, an error is generated. Thus we are left 
with having to do complex error trapping to try and control this 
situation. 

To resolve these problems we have developed a system 
\A/hich not only controls access, but also monitors utilization. 

ACUM is an acronym for Access Control and Utilization 
Monitor. ACUM consists of a series of programs which restrict 
access to all applications programs to authorized users and 
monitor application program utiiization rates. ACUM also 
includes a number of programs which provide information 
useful for system management. All applications programs are 
accessed through and return to ACUM. All applications pro¬ 
grams also maintain utilization data during execution. 


ACUM Data Base 

Four files are required to accomplish the control and 
utilization monitoring functions of ACUM, the Access Control 


File, The Utilization Monitoring File, the Active Users File, and 
the Program Conflict File. 

The Access Control File contains all of the data needed to 
ensure that only authorized users can gain access to the 
application programs and to restrict users to a specific set of 
programs within the entire application package. 

There are 3 record types within the Access Control File. 
User Records (containing user I.D. number, user name and 
access code) define authorized users to the system. Each valid 
program within the applications package is defined in a Pro¬ 
gram Record (containing program code, program name and 
the name of the program's .TSK file). The third record type 
within the fiie is the User Clearance Record. Each of these 
records "link" a user to a program, thereby clearing a user for 
that specific program. Users may be cleared for "ALL" pro¬ 
grams or may have several Clearance Records to authorize 
them for several programs. 

The Utilization Monitoring File contains one record for 
each user-program and user-file combination. Each user- 
program record contains User Number, program name. CPU 
time, connect time, number of pages printed, and number of 
copies produced. The user-file records contain User Number, 
file name, number of records created, changed, deleted, out¬ 
put. screened for changes, and screened for output. 

The Active Users File contains one record for each active 
applications job. Each record contains the User Number, the 
program being run. the start CPU and connect time, the key¬ 
board number, and the RSTS Job number. 

The Program Conflict File contains one record for each 
applications program which should not be run while another 
specific program is active. Each record contains the name of 
the program which cannot be run and the name of the program 
it cannot be run with. 


Program Access Through "ACUM" 

Each user of the system is assigned a unique user I.D. 
number and an access code or password. This data is main¬ 
tained in the Access Control File. In addition, the Access Control 
File also specifies the programs which a user is authorized to 
access. In this way, an individual user can be authorized to use 
only selected programs from the total applications package. 

Application program access through ACUM is accom¬ 
plished in the following manner. The system will automatically 
run the Access Control program when a non-privileged user 
logs onto the system. This program prompts the user to enter 
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HAD 

ENOUGH? 

Outrageous Prices? 

Impossible Lead Times? 

Little Or No After Sale Support? 



Compumation, the name that is 
quickly becoming synonymous 
with reliability & quality, now offers 
a complete line of D.E.C. compat¬ 
ible system enhancements. 

The newest members of our line 
are our new Comp-DK & Comp- 
DF Backplanes, which are DD11 - 
DK and DD11-DF equivalents, 
and our Comp-CK & Comp-CF 
which are DD11 -CK and DD11 - 
CF equivalents. Our lead time is 
typically 30-45 days, ARO. 
SUPPORT? We offer the finest, 
over the phone or on site. 


coiiiPumAeion 

Call us. When you’ve had enough. 

2326 Walsh Ave. Santa Clara CA 95051 
(408) 988-8600 


D.E.C. is a registered trademark of Digital Equipment Corp. 
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- \ 

Word Processing* 

for 

RSTS/E 

On Track Systems provides: 




their I.D. number and access code (password). The Access 
Control File is checked to verify that the user has entered a 
valid combination. An error message is displayed if the combi¬ 
nation is invalid and the user is re-prompted. If the user fails to 
enter a valid combination after three attempts, the user is 
iogged off the system and a warning message is displayed on 
the system console. 

If the user enters a valid I.D. number and access code, he 
or she is at ACUM command level and may issue commands or 
program requests to the Access Control program when promp¬ 
ted to do so. Valid user commands are "LIST" which dispiays all 
programs for which the current user is authorized, and "END" 
which terminates the job and logs the user off the system. If 
the user enters a program request, the Access Control File is 
checked to verify that the program exists and that the current 
user is authorized to use it. If either edit fails, an error message 
is displayed and the user is re-prompted. If the user enters a 
valid program request, the Access Control program places the 
user I.D. number in core common, updates the Active User File 
to reflect the status of the user, checks for conflicts with 
currently active programs and if no conflict exists. CHAINS to 
the appropriate application program. When the user is finished 
with the application program, they are CHAINED back to the 
Access Control program and the Active User File is updated to 
reflect their current status. Users are then re-prompted for a 
command or program request. If command "END"' is entered, 
the Active User File record corresponding to the user andjob is 
deleted, and the user is logged off the system. It can be seen 


Sales j 

Service 

Installation V 

Demonstrations / 
Training \ 

Consulting _ J 


At^our 
convenience! 

At your 
office! 


(215) 542-7008 

P.O. BOX 245, AMBLER, PA 19002 

* Word-11 by Data Processing Design, Inc., 

181 W. Orangethorp Avenue, Placentia,CA 92670 


J 


from the above description that during a Job session, a user is 
always in communication with an application program and at 
no time can they gain access to RSTS. For the convenience of 
application programmers, it is possible to clear a user to run a 
program which allows access to RSTS. 

Two other points of interest concerning ACUM must also 
be mentioned. The first statement of each application program 
is a CALL to a subroutine which immediately logs the user off 
the system. The Access Control program "CHAINS" to applica¬ 
tion programs at a point past the subroutine CALL. It is. 
therefore, impossible to access any application program 
directly without going through the Access Control program. 
The second point of interest is the passing of the user I.D. 
number into core common. Each application program can then 
obtain the user I.D. from core common and thereby maintain 
utilization statistics for that user. 

All programs must chain to the Access Control program 
upon termination. This enables users to select additional appli¬ 
cation programs for execution or issue the " END" command 
which automatically logs the user off. In cases where a job 
detaches and a new job is created. LOGIN has been modified to 
chain to the Access Control program. The detached job upon 
termination kills itself LOGIN chains to the Access Control 
program by running a program called START in the user s 
account. If there is no START program in the user s account the 
user is logged into RSTS command level. This feature is used to 
enable programming staff immediate access to RSTS without 
using the Access Control program. 


25 % SAVINGS 

TO LARGE LESSEES OF 

DEC TERMINALS 

OUR Typical 

PRICE Competition 

LA120 $94/mo. $l 24 /mo. 

LA34 44 59 

VTIOO 64 85 

• NEW EQUIPMENT 

• INCLUDES DEC LOCAL ZONE MAINTENANCE 

• PFUCES BASED ON 25 UNIT SINGLE BATCH 
NEW INSTALLATIONS FOR ONE YEAR 

• PURCHASES AV AILABLE AT SIMILAR 
DISCOUNT 

Dacoterm, Inc. 013) 

11365 CULVER ROAD 229-7850 
BRIGHTON, MICH. 48116 453-7250 
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Utilization Monitoring 

The Utilization Monitoring Function of ACUM is accom¬ 
plished through the tracking of user system utilization within 
each application program. The utilization data must be main¬ 
tained from the time that the Access Control program chains 
to an applications program, to the time that the application 
chains back to the Access Control program or, in the case of a 
job which detaches, until the job kills itself Although entry to 
applications can only be made through the Access Control 
program, exit from applications programs can take a number 
of forms. 

1. Use of ESC key during data entry 

2. KB wait exhausted during data entry 

3. normal' exit from mainline by chaining to the Access 
Control program 

4. exit from mainline by chaining to QUE 

The method of collecting utilization data remains con¬ 
stant regardless of exit mode; however, the method of updat¬ 
ing utilization data stored in ACUM files will vary. 

In order to properly maintain utilization data \while pro¬ 
grams are executing the following functions must be per¬ 
formed at the beginning of each applications program. 

1. Declare a common area with the following data: 

a. ACUM user number (the Access Control Program 
places the user number in core common) 


BATCH/SPOOLER REPLACEMENT 

This document is a description of the package FASTQUE, a 
SPOOLER/BATCH/ATPK replacement. 

Features: 

1) Completely compatible with RSTS/E V7.0. 

2) Spawns spoolers and batch jobs as needed, up to limit 
set by system manager. 

3) Implemented in PASCAL, with MACRO-11 external 
procedures, for ease of understanding and fast 
response. 

4) Uses new send/receive formats. 

5) Complete documentation of calling formats 

6) Parameter fill in for control files 

7) On line command file execution (also with parameter 
fill-in). 

8) Larger instruction set for control files 

9) Global time limits, page limits set by operator 
10) Simple command syntax. 

This package is a replacement for 

1) BATCH, BATIDL, etc. ... 

2) QUEMAN, QUE. etc. ... 

3) ATPK, ATPRO 

4) PLEASE, SHUTUP 

Available March 1, 1981 
Single CPU license = *900°° 

Call Tom Courtney (617) 266-1930 for 
a set of report samples or write to: 

MaA^pe 636 Beacon Street 
Boston. MA 02215 


TERMINALS FROM TRANSNET 


PURCHASE PLAN • 12-24 MONTH FULL OWNERSHIP PLAN • 36 MONTH LEASE PLAN 


DEC 


PURCHASE 

PRICE 


PER MONTH 
12 MOS 24 MOS 36 MOS. 


TEXAS 

INSTRUMENTS 


DATAMEDIA 


LEAR SIEGLER 


HAZELTINE 


TELEVIDEO 


NEC SPINWRITER 


QUME 


HEWLETT PACKARD 


CENTRONICS 


LA36DECwriter II. 

$1,095 

$105 

$ 58 

$ 40 

LA34 DECwriter IV. 

995 

95 

53 

36 

LA34 DECwriter IV Forms Ctrl.. 

1,095 

105 

58 

40 

LAI 20 DECwriter III KSR. 

2,295 

220 

122 

83 

LAI 20 DECwriter III RO. 

2,095 

200 

112 

75 

VT100 CRT DECscope . 

1,595 

153 

85 

58 

VT132 CRT DECscope. 

1,995 

190 

106 

72 

TI745 Portable Terminal. 

1,595 

153 

85 

58 

TI765 Bubble Memory Terminal 

2,595 

249 

138 

93 

TI783 Portable KSR, 120 CPS . 

1,745 

167 

93 

63 

TI785 Portable KSR, 120 CPS . 

2,395 

230 

128 

86 

TI787 Portable KSR, 120 CPS . 

2,845 

273 

152 

102 

TI810 RO Printer. 

1,895 

182 

102 

69 

TI820 KSR Printer. 

2,195 

211 

117 

80 

DT80/1 CRT Terminal. 

1,695 

162 

90 

61 

DT80/5 APL CRT. 

2,095 

200 

112 

75 

DT80/5L APL 15' CRT. 

2,295 

220 

122 

83 

ADM3A CRT Terminal. 

875 

84 

47 

32 

ADM31CRT Terminal. 

1,450 

139 

78 

53 

ADM42 CRT Terminal. 

2,195 

211 

117 

79 

1420 CRT Terminal. 

945 

91 

51 

34 

1500 CRT Terminal. 

1,095 

105 

58 

40 

1552 CRT Terminal. 

1,295 

125 

70 

48 

920 CRT Terminal. 

895 

86 

48 

32 

950 CRT Terminal. 

1,075 

103 

57 

39 

Letter Quality, 55/15 RO. 

2,895 

278 

154 

104 

Letter Quality, 55/25 KSR. 

3,295 

316 

175 

119 

Letter Quality KSR, 55 CPS ... 

3,395 

326 

181 

123 

Letter Quality RO, 55 CPS_ 

2,895 

278 

154 

104 

2621A CRT Terminal. 

1,495 

144 

80 

54 

2621P CRT Terminal. 

2,650 

255 

142 

96 

730 Desk Top Printer. 

715 

69 

39 

26 

737 W/P Desk Top Printer .... 

895 

86 

48 

32 


FULL OWNERSHIP ARER 12 OR 24 MONTHS • 10% PURCHASE OPTION AFTER 36 MONTHS 


ACCESSORIES AND PERIPHERAL EQUIPMENT 

ACOUSTIC COUPLERS • MODEMS • THERMAL PAPER • RIBBONS • INTERFACE MODULES • FLOPPY DISK UNITS 


OTHER POPULAR TERMINALS. COMPUTER PERIPHERALS ANO COMPUTERS AVAILABLE. 


IransNet CORPORATION 

1945 ROUTE 22 • UNION, N.J. 07083 • (201) 688-7800 

TWX 710-985-5485 



b. number of data files 

c. current CPU time 

d. current connect time 

e. 6 character program name 

f 6 character file name of data files used in program 

2. During program execution the program must maintain 
in the common area the following data: 

a. number of pages of hardcopy output (handled by 
subroutines) 

b. number of copies of hardcopy output (handled by 
subroutine) 

c. number of file records created in each file 

d. number of file records changed in each file 

e. number of file records deleted in each file 

f. number of file records output from each file 

g. number of file records read and reviewed from 
each file in an attempt to find a specific record 
which is to be changed 

h. number of records read from each file in order to 
find a specific sub-set of the file which is then 
output 

The utilization data maintained by each applications pro¬ 
gram is written to the Utilization Monitoring File by a subrou¬ 
tine prior to program termination. The method used for 
update varies with the manner in which the program ended. 
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Program Conflict Control 

Since ACUM knows at all times which application pro¬ 
grams are running, it can control the execution of conflicting 
programs. To accomplish this ACUM maintains a table contain¬ 
ing the names of aii programs which conflict with each other. 
This table is checked by the Access Control program prior to 
chaining to a user selected applications program. 

Prior to implementing an applications program which 
conflicts with other application programs, programmers 
create the appropriate conflict records in the Program 
Conflict File as follows: 

USER-SELECTED-PROGRAM CONFLICTING-PROGRAM 

PROGA MPROG 

PROGA PROGER 

PROGA TSTPRG 

If the conflict works both ways for all these programs the 
following additional records would be required: 

MPROG PROGA 

PROGER PROGA 

TSTPRG PROGA 

When a user selects a program, the Access Control pro¬ 
gram checks the Program Conflict File for a matching USER- 
SELECTED-PROGRAM. For each one found, the corresponding 
CONFLICTING-PROGRAM field is used to search the Active 
Users File. If a matching record is found in the latter file an 
error message is displayed to the user, and he or she is 
prevented from executing the USER-SELECTED-PROGRAM. 

ACUM Management Reports 

Two sets of reports are available to inform management 
as to the current status of application programs, users and 
computer utilization. One set of reports is printed from the 
Access Control File and lists all application programs and au¬ 
thorized users. The other set is produced from the Utilization 
Monitoring File and provides statistics on data file activity and 
computer resource utilization. These reports are described in 
detail below. 


Access Control RIe Listings 

There are three simple listings that can be produced from 
the Access Control RIe. These reports show the current status 
of users, user clearances, and application programs. The 
reports can be produced either at a keyboard or on the line 
printer. 

a. Application Programs: lists each application program 
available through ACUM and shows the program code, 
program description, and the name of the program's 
.TSK file. 

b. Authorized Users: lists each user cleared to access 
ACUM and shows user I.D. number, name and access 
code or password. 

c. Authorized Users and Clearances: lists each user with 
access to ACUM and the application programs for which 
the user is cleared. The report shows user I.D. number. 


user name, password, program code and program de¬ 
scription. Appropriate messages are printed if the 
user is cleared for all programs or not cleared for any 
programs. 


Computer Resource Utilization Summaries 

There are four summary reports that can be provided 
from the Utilization Monitoring File. These reports contain a 
variety of utilization statistics including file activity, CPU and 
connect time usage and volume of hardcopy output. They are 
designed to assist management in monitoring the utilization of 
application data files and computer resources and can be a 
valuable aid in detailing utilization by individual users, defining 
through-put "bottle-neck" areas, planning for future hardware 
and/or software enhancements and monitoring file activity to 
determine file volatility and storage requirements. 

The reports can be displayed at a terminal or printed on 
the printer. 

a. RIe Activity By User: This report analyzes file activity 
by individual user. Six activity categories (number of 
records created, changed, deleted, displayed, screened 
for change and screened for display) and a total activity 
count is printed for each user of the data file. The report 
also shows the percentage of each activity category as 
it relates to the total activity by each user. A total line is 
also printed for each file showing the total activity and 
related percentages for all users of the file. The pro¬ 
gram that produces the report can be instructed to 
print data for all files or one file. 

b. Computer Utilization By User: This, and the next two 
reports display the computer resource utilization sta¬ 
tistics in a variety of ways. This report organizes the 
data by user number and displays connect time. CPU 
time, number of pages and copies printed and total 
paper used. The program also calculates and displays, 
for each user, the percentage of each utilization cate¬ 
gory as it relates to the total of that category. 

c. Computer Utilization By Program: This report is identi¬ 
cal in content to the one "By User" but is presented in 
sequence by Program Name. 

d. Computer Utilization By User and Program: This report 
organizes the connect and CPU time statistics by user 
and program. For each user, the user number and user 
name is printed. For each of the user's programs, the 
program name, description, connect time and CPU time 
is displayed. The percentage of each program's connect 
and CPU times (as it relates to the total times for the 
user) is calculated and printed. 


CONCLUSIONS 

The above description represents the results of our 
attempts to provide access control and utilization monitoring 
capabilities beyond those provided by RSTS. We have found the 
system extremely adaptable and easy to use and maintain. ♦ 
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PDP/11 Systems — UTILITIES 

By M. A. Jackson. A.C. Nielsen Co. Ltd.. Oxford. UK 


INTEGER TO DECIMAL STRING CONVERSION SUBROUTINE 


Invocation 

CALL NUMASK (A$. B%) 


Processing 

This module right-aligns in A$ the decimal string representation of B%. Only as many characters as are necessary to hold 
the value are changed: other characters in A$ are unchanged. If B% equals zero, no action is taken, i.e. the routine will not 
right-align a single zero character into a blank string. 

Checks 

1. That two parameters are passed. — No action taken. 

2. That B% is not negative. — No action taken. 

3. That A$ is long enough to hold the string value of B%. — No action taken. 


Critical considerations 
Size 108 bytes 
Speed < 1 ms 


FINALLY! A publication exclusively for DEC* 
or DEC-related users, nnanufacturers, and consultants! 

Order your free subscription TODAY! 


FREE Subscription Form 



IMPORTANT — To qualify, please answer all questions below. 


Type of DEC computer at this location: 
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Title_ 


Company _ 

Company Address 
City/State/Zip 
Phone( ) 

signature 

Date _ 


CPU_ 

Disk_ 

Floppy 
CRT_ 


Operating System 

Tape _ 

Printer_ 

Other_ 


Primary product or service of your firm at this location: 
End User_ OEM (type)_ 


System House _ 

n Check here if you wish to receive promotional mail from Consultant - 

Hardcopy. Data Processing 


MFC 


Educator_ 

Government. 


is published six times per year by Seldin Publishing, Inc. One subscription per DEC site at no charge. 
One year subscription for other than qualified individuals may be purchased at the following rates: 

United States — Surface Mail.$10.00 

United States — Air Mail.$17.00 

All Other Countries.$19.00 

SEND TO BOX 759 — BREA, CALIFORNIA 92621 
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,'iITLE NEiiASE 

..;;dent /oo/ 

y CALL NUfiASK(A$yB%) 


y THIS SUBROUTINE IS CALLED FROH BAS IC-PLUS-" 2. IT RIGHT-ALIO NS THir: 

? DECIHAL REPRESENTATION OF BZ IN A GIVEN MASK STRING A*, IT IS A NO-OP 
7 IF B% IS NEGATIVE OR ITS DECIMAL REPRE3ENTAIION WILL NUT FIT INTO 

7 

nuhask:j 



CMPB 

#2? <R5) 

y 


BNE 

RETRN 

y 


MOV 

0 4 V R 5 > 7 f< 4 

y 


BLT 

RETRN 

y 


MOV 

OCRS)yRO 

y 


MOV 

2<R0)yRl 

■y 


BEQ 

RETRN 

y 


MOV 

tPOWERSyRE 

y 

CLRi 

CLR 

R3 

y 

subt: 

SUB 

(R2)yR4 

y 


BLT 

NEG 

y 


INC 

R3 

y 


BR 

SUBT 

y 

NEGi 

ADD 

<R2)yR4 

y 


CMP 

2 (. R 0 ) y RI 

y 


BNE 

PUSH 

5 


1ST 

R3 

y 


BEQ 

NEXT 

y 

?•' U Yi Ft ♦ 

MOV 

R 3 j — ( S F') 

y 


DEC 

R1 

y 


BLT 

OVERFi. 

■y 

NEXT J 

TST 

< R2) + 

y 


TST 

(R2) 

y 


BNE 

CLR 

y 


MOV 

(F; 0 ) V 2 

7 


ADD 

2(R0)yR2 

y 

fill: 

CMP 

2 (R:0 ) 7 Ft! 

y 


BEQ 

RETRN 

y 


BIS 

#000060 V (SP) 

S 


MOVB 

(SP)T y-(R2) 

y 


INC 

Ri 

y 


BR 

FILL 

y 

overfl: 

CMP 

2(R0)yRl 

y 


BEG 

RETRN 

7 


TST 

(SPyf 

7 


INC 

Ri 

7 


BR 

OVERFL 

7 

ketrn: 

RETURN 



powers: 

♦ WORD 

10000 * 7 1000, 

7 100. 


2 ARGUMENTS T 
NO - GIVE UP 
R 4 - h 'Z 

NEGATIVE - GIVE UP 
RO ADDR OF M i-iEADER 
R1 LENGTH OF A$ 

At NULL - GIVE UP 
START R2 AT 10000 
INIT COUNTER 
SUBTRACT POWER OF 10 
OVERDONE IT 
INCREMENT CNTR 
GO SUBTRACT AGAIN 
ADD IT BACK IN 
FIRST CHAR ? 

NO - NEED IT WHATEVER 
IS IT ZERO ? 

YES - BYPASS PUSH 
PUSH DIGIT ONTO STACK 
COUNT DOWN NUMBER OF CHARS 
100 MANY CHARS 

POINT R2 AT NEXT (LOWERS POWER 
CHECK END OF POWERS 
MORE TO SUBTRACT 
R2 ADDR OF A$ 

R2 = ADDR OF END OF At T 1 
ALL DIGITS POPPED ? 

YES - GO HOME 
CVT TO ASCII decimal 
MOVE DIGIT TO STRING 
COUN i CHARS F’UPPE.D 
G 0 C H E C K FINIS H E D 
ALL Diul VS POPPilD ? 

YES - GO HOME 

'POP A DIGIT' VTO NOWHERE) 

COUNT CHARS POPPED 

GO CHECK FINISHED 

7 1 0 <■ 7 1 7 V 


,END 





March 1981 page 81 

RSTSPROfESSK)NALBSTS(>IK3fESSIONAUiSI3PTOreSSIONALRSTSPflOFESSIONALRSTSPTOFESSIONALRSTSPROfESSIONALRSTSPROFESSIONALRSTSPROfESSIONALRSTSPROFESSK)NALRSrSPROreSSIONALRSrS(WFESSra^ 


VERIFY SUBROUTINE 
Invocation 

CALL VERIFY (A$. B$. C%) 

Processing 

This module returns in C% the position of the first character in B$ which is not in A$, or zero if all characters in B$ are in 
A$. It also returns zero if B$ is null, even if A$ is also null. This is logical (there are no characters in B$ which are not in A$) and 
consistent with Basic-plus-2 functions. 

Checks 

1. That three parameters are passed. — No action taken. 

Critical Considerations 
Size 70 bytes 

Speed Typically <1mls: dependent on the string lengths. 

A$ is searched sequentially from the left: characters expected to be most frequently present in B$ should therefore be at 
the left of A$. 


* title; lle ;::- > 

»IDENT /OO/ 


i CALL y E RIF Y(A t j B $ p C%; 

V 

5 SUBROUTINE TO RETURN THE POSITION OF THE FIRST CHARACTER IN B$ 


p WHICH 

p 

OERIFY; 

IS NOT 

IN AS. RETURNS 



CMPB 

t'3 p ( R5 ) 

y 


BNE 

RETRN 

i? 


CLR 

06 ( R5) 

y 


MOO 

4^R5)pRO 

y 


MOO 

2(R0)pRi 

y 


BEQ 

RETRN 

y 

TES(At 

MOO 

2 C R5)p R2 

y 


MOO 

2 ( R 2 ) p R 3 

y 


BNE 

START 

y 


a. 1 X 

Q>6(R5) 

y 


BR 

RETRN 

y 

S "i A K T » 

MOO 

( RO ) •/ RO 

y 


ADD 

ROpRI 

y 


ADD 

\ R2'!) p R 3 


NEXTA t 

MOO 

(R2 > p R4 

y 


INC 

06(R5 ) 

y 

TESTBt 

CMPB 

i R 0 ) p i; R 4 ) + 

7 


BEQ 

NEXTB 

y 


CMP 

R4pR3 

y 


BNE 

1 ESTB 

y 


BR 

RETRN 

y 

NEXiB i 

INC 

RO 

y 


CMP 

ROpRI 

y 


BNE 

NEXTA 

y 

hETRN; 

CLR 

R E T 0 R N 

06(R3) 

y 


»END 


IF ALL BYTES ARE PRESENT, 


3 ARGUMENTS ? 

NO - GIHE UP 

I NI T C% 0% 

RO -■ AD DR OF B$ HEADER 

R1 LENGTH OF 

Bli NULL - RETURN 0% 

R2 A DDR OF A* HEADER 

R3 uENGTH OF A$ 

NUT ZERO length 
~ i% 

A$ NULL MUST RETu.^r^ i% 

RO AD DR OF B$ 

Ri A dor of end OF B$ T 1 

R3 DITTO A$ 

ADDR OF AS 
INCREMENT CZ 

COMPARE BYTE OF BS WITH BYTE OF AS 
IT'S CHEREp go get next OF BS 
i-AST ALL OF AS ? 

NO -• TES; NEXT 

YES - C% ALREADY SET - RETURN 
POINT TO NEXT OF BS 
PAST ALL OF BS ? 

NO - TEST NEXT OF BS 
TES - SET C% 0% 
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INTEGER TO OCTAL STRING CONVERSION SUBROUTINE 
Invocation 

CALL OCTAL (A$. B%) 

Processing 

This module returns in the six-byte string A$ the octal string representation of B%. 
Checks 

1. That two parameters are passed. — No action taken. 

2. That A$ is six bytes long. — No action taken. 

Critical considerations 
Size 62 bytes 
Speed <1 ms 


vTIi'Lli GCTAi... 
. I DENT /OJ./ 

CALL OCTAL (A$!.B7.) 


? 

7 
7 
7 
7 
7 

OCTALJ 


THIS 

INTO 


SUBROUTINE PUTS THE SIX CHARACTER OCTAL REPRESENTATION OF B% 
THE (SIX-BYTE) STRING AS 


LOOP; 


err: 


CMPB 

(R5)f#2 

7 2 ARGUMENTS ? 

BNE 

ERR 

7 NO - ERROR 

MOO 

2(R5) 7 RO 

7 RO AD DR OF AS HEADER 

CMP 

2 ( RO ) 7 #6 

7 AS SIX BYTES ? 

BNE 

ERR 

7 NO - ERROR 

MOO 

e4(R5> jRl 

7 R 1 ™ B % 

MOO 

(RO)7R2 

7 R2 ADDR OF AS 

ADD 

#6 7 R2 

7 R2 ADDR OF END OF AS 

MOO 

*5 7R3 

7 LOOP COUNT 

MOO 

Ri7-(SP) 

7 OORD ONTO STACK 

BIC 

*1777707(SP) 

7 'ONE OCTAL OALUE' 

ADD 

*'’07 ( SP ) 

7 CONOERT TO ASC: 

MOOB 

(SP ) -h 7 - ( R2 ) 

7 STORE IN As 

ASH 

*- 27 Ri 

7 SHIFT RIGHT THREE 

SOB 

R3 7 LOOP 

7 TEST FOR FIOE DONE 

BIC 

*177776 7 Rl 

7 GET LAST BIT 

ADD 

*'’07R1 

7 CONOERT TO ASCII 

MOOB 

RETURN 

R1 7 -( R2 ) 

7 SCORE IN AS 


+ 1 


, END 
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SUBSTRING PSEUDOVARIABLE EMULATION SUBROUTINE 


Invocation 

CALL INSERT (A$. B$. C%) 


Processing 

This module overwrites string B$ into string A$ starting a position C%. 
Checks 

1. That three parameters are passed. — No action taken. 

2. That C% is greater than zero. — No action taken. 

3. That B$ will fit into A$ from that position. — No action taken. 


Critical consideration 
Size 50 bytes 
Speed <1ms 


♦TITLE 

INSERT 



. IDENT 

/oo/ 



y 

5 CALL INSERT(A$7B$»C7.) 



X 

r SUBROUTINE TO 

OVERWRITE B$ 

INTO 

A$ STARTING AT POSITION C% 

9 

insert:: 




CMF'B 

iSi- (R5) 

5 

3 ARGUMENTS ? 

BNE 

RETRN 

A 

9 

NO -• GIVE UP 

MOV 

66 (RS) 1-R2 

9 

R2 = C% 

BLE 

RETRN 

9 

CV. <> OX - GIVE UP 

MOU 

2(R5) i-RO 

9 

RO ADDR OF A$ HEADER 

MOU 

4(R5)»R1 

9 

R1 == ADDR OF B$ HEADER 

MOU 

2(R1)»R4 

9 

R4 LENGTH OF B$ 

BEQ 

RETRN 

9 

B$ NULL -• NOTHING TO DO 

DEC 

R2 

9 

R2 =: CX - 1% 

MOU 

R 2 » R 3 

9 

R3 = CX - IX 

ADD 

R4 V f<3 

9 

R3 CX - 1 % T LENCBi) 

CMP 

R3i.2(R0) 

9 

GREATER THAN LEN(A$) ? 

BGT 

RETRN 

9 

YES B* WON'T FIT - GIVE UP 

MOU 

(R1)»R1 

9 

R1 ^ ADDR OF B$ 

MOU 

(RO> S.R0 

9 

RO ADDR OF A$ 

ADD 

R2 7R0 

9 

RO ^ ADDR OF 1ST CHAR TO OVERWRITE 

movone: moub 

<R1)+7(R0)+ 

9 

MOVE A CHAR FROM B$ INTO A$ 

SOB 

R47M0V0NE 

9 

GO MOVE ANOTHER IF NOT FINISHED 

retrn: return 





. END 
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STRING INSERTION SUBROUTINE 

Invocation 

CALL PUSHIN (A$. B$. C%) 

Processing 

The module writes string B$ into string A$ starting at position C%. Characters in A$ from position C% onwards \A/ill be 
moved up to follow the inserted characters. 

Checks 

1. That three parameters are passed. 

2. That C% is greater than zero 

3. That B$ will fit into A$ from that position. 

4. That sufficient blanks or nulls are present at the end of A$ to be "pushed off the end". — No action taken if any fails. 
Critical Considerations 


Size 

Speed 


80 bytes 
<1ms 

, f.[ CLE 
»IDENT 


EUSHIN 

/OO/ 


C A L.. L.. F’ IJ S1-11N ^ A % , e t f C % ) 

THIS SUBFllOUTINE INSERTS B*- tNl'D A$ STARTING AT PQSIIION CZ, 
PUSHING THE REMAINDER DF A$ TO APFEAR AFTER B$» 


5 A$ MUST HAUE SUFFICIENT BLANKS OR NULLS AT THE END TO ACCOMMODATE B$ 


PUSHING 


TEST 


PUSH: 


insert: 


CMPB 

(RS) V *3 

$ 

3 PARMS ? 

BNE 

RETRN 

y 

NO -- GIDE UP 

MOO 

i f? 6 ( R 5 ) » R 0 

$ 

RO C% 

BLE 

RETRN 

P 

CZ <= 0% -• GIDE UP 

MOD 

4(R5)yRl 

P 

Ri ADDR OF B$ HEADER 

MOO 

2(R1 ; jR2 

P 

R2 =: LEN(B'.fe) 

BEQ 

RETRN 

7 

B$ NULL - NOTHING TO DO 

MOV 

2 < R5 ) •/ R3 

P 

R3 ADDR OF A$ HEADER 

MOD 

2(R3 )? R4 

P 

R4 i...ENCA$) 

ADD 

R2 » RO 

P 

POSH PAST END OF INSERT 

DEC 

RO 

P 

POSN OF LAST INSERTED ChAR 

CMP 

R0rR4 

P 

IS THIS PAST END OF A^fc ? 

BGT 

RETRN 

P 

YES - GIDE UP 

ADD 

(R3)?R4 

7 

R4 ADDR OF BYTE PAST A$ 

MOD 

R4yR0 

y 

STORE DITTO IN RO 

BITB 

--(R4) y tl37 

p 

IS IT BLANK OR NULL ? 

BNE 

RE TRH 

7 

NO - GIDE UP 

SOB 

R2jTEST 

P 

TEST AS MANY BYTES AS IN B$ 

MOD 

2 ( R3)y R2 

P 

R2 =- LEN(Af) 

SUB 

06(R5)yR2 

7 

R2 = LEN(A$) - C% 

INC 

R2 

P 

NO, OF BYTES (0 BE PUSHED UP 

MODE 

-(R4) y“( RO) 

P 

MODE BYTES OF A$ AFTER INSERi 

SOB 

R2 y PUSH 

P 


MOD 

2(R1)yR2 

P 

R2 == LEN(B$) 

MOD 

( F» 1) y F^ -4 

P 

R4 ADDR OF B$ 

ADD 

R2yR4 

P 

R4 ADDR OF BYTE PAST B$ 

ADD 

R 2 y FsO 

P 

RO == ADDR PAST LAST INSERT 

MODB 

-(R4) y -(RO) 

P 

MODE BYTES OF B$ 

SOB 

R2yINSERT 

P 


RETURN 





RETRN 
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BACdtaS)© can cb it all! 


BAC into RTS / BAC into MAC / BAC into BAS BACmac is a unique software tool, running 

under RSTS/E, which provides the following 
conversions: 

■ translation from Basic-Plus "compiled" back to 
Basic-Plus source code (only the comments will 
be missing) 

■ translation from Basic-Plus into Macro source 
code, which compiled under RSTS runs faster 
than Basic-Plus 

■ translation from Basic-Plus into Macro source 
code which may be compiled under RSTS for 
execution under RTl I — a migration facility 

■ translation from Basic-Plus into a RUN-TIME- 
SYSTEM. Now you can write an RTS in Basic-Plus. 
The ideal solution to memory thrashing due to 
"multi-copy" applications programs. 

RSTS/E, RTIl, Macro-11 and Basic-Plus are trademarks of Digital 
Equipment Corporation. 


Please write for more information 



— Telecom Computer Systems, Inc. 
-7-^ PO. Box 03285 

_ •— Portland, Oregon 97203 

\—m- 503/286-5122 



STRING INSERTION SUBROUTINE 


Invocation 


CALL PUSHON (A$. B$. C%) 

Processing 

The module writes string B$ into string A$ starting at position C%. The character in A$ at position C% is overwritten; 
characters from position C% + 1 % onwards will be moved up to follow the inserted characters. 


Checks 

1. That three parameters are passed. 

2. That C% is greater than zero. 

3. That B$ is not null. 

4. That B$ will fit into A$ from that position. 

5. That sufficient blanks or nulls are present at the end of A$ to be "pushed off the end". 

No action taken if any fails. 

Notes 

1. Check 3 implies that a character cannot simply be "lost" from A$ by specifying replacement of the character at 
position C% with a null string. 

2. That routine may be used simply to overwrite a single character in A$ (similar to INSERT subroutine) in which case 
check 5 obviously does not apply. 


Critical Considerations 
Size 82 bytes 
Speed < 1 ms. 
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• j. ; 1. In. iJ B i‘i \ 

« ZOO/ 

9 C A1... L. 1 •’ L; c> i''i U 1*4 V ^Vij: ? B X C % ) 

? 

i Tri.:.B Subi-ajUl INE INBiiJ-US INiD h% SiARTING AT PUS IT TON CZ? 


y (!; ‘ JP Z} r\I j\ 0 f r-i I::. C h |•^. i '] E R A \ 

5 I- U S i-i :i: N U ; i- i E P E! H A J. N D E H 0 E A $ 1 
y r-i r:L;S :‘ ABi.;•' i CiEuX B i... H (Mt' 


r* •../ •!'.> i 'i 1 •. V V 



CMF B 

(R5)T 7 #3 



RE TRN 


TSTB 

V i-v5 71 


MOO 

\ D > t ? r; U 


MOO 

i RC7i-7Ri 


hOY' 

2(Ri> 7 RS 


BEQ 

RETRN 


MOV 

2 t. iT .i •' 7 R 4 


MOO 

(R5)7R5 


MOO 

( R'o ) 7 iTO 


BLE 

RETRN 


ADD 

R2 7 NO 


DEC 

RO 


CMP 

RO 7 FTh 


BBT 

RETRN 


MOV 

h;4 7 RO 


ADD 

(R3)7R4 


DEC 

R2 


BEQ 

NOTEST 

TELSTT 

BiTB 

-• < R4 ) 7 au.37 


BNE 

RETRN 


SOB 

R27TEST 

NOTEST; 

MOO 

RO 7 R 2 


ADD 

( R vj ) 7 R 0 


MOO 

2(R1> 7 R3 


SUB 

( RS '/ 7 R2 


SUB 

R3 7 R2 


INC 

R2 


BEQ 

NOPUSH 

PUSH; 

MOOD 

- ( R4 ) 7 RO ) 


SOB 

R2 7 PUSH 

NOFush; 

MOO 

(Rl) 7 R 4 


ADD 

R3 7 R4 

INSERT; 

MOOD 

R4) 7--(R0) 


SOB 

R3 7 INSERT 

retrn; 

RETURN 



♦ END 


OSiriGN L/.. And 
APPEhB; AFi'ER 

UR NULuo AT (TiE END TU A CL Of “I NO DATE 


f 3 PARH3 ? 

? N U "■ U i U E Li i"' 

? RS AD DR OF IST FARM 

J Ro AD DR OF A$ HlEADER 

5 Ri A DDK OF B$ HEADER 

5 R2 LEN(B$) 

i e$ NULL - NOTHING TO DO 
p R*t LEH<Aifc) 

p R5 A DDR OF C% 

p RO 0% 

f C% <>= 0% - GIVE UP 
y i-' 0 8 N f' A 8 T E. N D 0 F IN 8 E R T 
7 PGSN OF LAST INSERTED CHAR 
5 IS THIS PAST END OF A$ ? 
y YES -• GIOE UP 
7 STORE LEN(B$> IN RO 
7 R^i = AD DR OF BYTE PAST A$ 

» ALLOW ONE CHAR OOERWRITE 
5 ONLY ONE BYTE “• NEED NO SPACE 
5 IS IT BLANK OR NULL ? 

7 NO - GIOE UP 

7 TEST AS MANY BYTES AS IN B'-fc MINUS 
7 R2 LEN(A$) 

7 RO == A DDR OF BYTE PAST A$ 

7 R3 = lEN<B$) 

7 R2 LEN(A$> -• CZ 
i R2 LEN<A$) - C% - LEN(Bili) 

7 NO* OF BYTES TO BE PUSHED UP 
7 NONE TO MOOE 

7 MOVE BYTES 0;- A* AFTER INSERT 

7 

7 R4 A DDR OF &$ 

7 R4 ~ ADDR OF BYTE PAST &$ 

7 MOOE BYTES OF B$ 

7 


ONE 


f 









11/45 * 11/60 

SYSTEMS: PDT11/150, 11/05, 11/10, 11/15, 11/20, 11/21 

ALSO - 11/34, 11/44, 11/70 and VAX Available 

DISK: RK11/RK05, RK07, RPR02, RP04, RP11 ctl, RM05, RX11 

MEMORY: MS11JP, MF11UR, MF11UP, MK11BE, MM11DP, 
MS11LD, MS11BR/BC, MS11KE 

TAPE: TA11AA, TC11AA, TU30, TU55, TU56, TU66, TU77, 
TM11EA, TJE16AA, TJU16EA 

TERMINALS: LA34, LA35, LA36, LA120, LS120, VT52, 

VT100, VT132 

PRINTERS: CENTRONICS 102A, DATAPRINTER V132C, 

LP02, LP03, LP04, LP05, LP06, LP11 ctl 

OVER 5000 Other Items 

In Stock! 

CALL 617 - 437-1100 

For Our Latest Listing of DEC CPUs & Peripherals. 

AMERICAN USED COMPUTER 

P.O. Box 68, Kenmore Station, Boston, Massachusetts 02215 
Leaders in Used DEC Hardware Since 1968. 
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A Beginners Guide to MACRO-11 ... 

... continued from page 33 

Chapter 5 

Programming Examples. 

This section contains a runthrough of routines to 
read and write to a device. The development is historical: 
one day I read an article by Bob Meyer in the May/June 
issue (1980) of the RSTS Professional: the results are 
before you. At the end is an example of a subroutine 
which creates a file, to show how the important directive 
CALFIP is used. 


.TITLC pr.iriT 


the .vniTE call 


. IDETIT 

/V01.2/ 

globals follow 

.GLOCL 

.GLODL 

.GLOCL 

.EXIT, .'.’MITE 

XRD, XRI.EII, X.RDC, XI’.LOC, 
MSGLEM, CnilllL, DLOCF. 

x'-.ci, xp.DLK, xpj:od 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR 

MSGLEtl, XRD+XRLEM ; 

MSGLEM, XRC+XRCC : 

(SP), XRE+.XRLOC 1 

ClirillL, XP.B+XRCI ; 

BLOci:, xnn+xp.nLi: : 

XRD+XP.MOD ; 

; routine code follo\/s 
; move size of buffer into 
; again 

; start address v/as in RS 
; channel f- * 2 
; block f to print 
; only Cor RECORD option 

.MP.ITE 


; go to it. 

RTS 

.FMD 

ns ; 

: go lioi.ie 

! end of source file 


5.3 Assembling and Running. 

Version 1 is easy to assemble and run. The com¬ 
mands 


5.1 PRINT Routine — Version 1. 

The original program in the article I read looked like 

this: 


macro print, print = print 
tkb print, print = print 
run print 


• TiiLn p: i:*7 pprir d'vio 
/VO 1.1/ 


; p:i:.7.::ac — p:’.i:;73 to ti.'H ki;. 
; ’..'r;TT7i::i dy non rinvcr. 


^:^D = ono</:2 

•wiiiTi: = in/:oo< 
.E.XIT = 104046 


DF.nr.T. DinncTivcc, xp.d 


ought to do it. Version 2 however, cannot even be run 
alone, since it is just a subroutine. Indeed, that is its 
chief advantage, since you can now build it with any pro¬ 
gram that needs a print routine. Suppose we had a pro¬ 
gram which looked like: 


DATA SPACE 


. EMAPJ. 

LC 





.ASCII 

/Those are the voyages . 

../ <cr><lf> 




.eve: I 




.TITLE 

TEST the PRIMT subroutine. 

M.SGLEtJ 

= . - ODUFF 

; message length = this location - 


. IDEtIT 

/VOl.1/ 



; start of buffer location 






; main code 


.GLOBL 

PRIMT 

MOV 

?XRD, RO 

; pointer to XRB 




MOV 

SM.SGT.F’J, (R0) + 

; move message length to XRB 




MOV 

CMSGL-Mi;, (no) + 

; tv/ice 


. EIIABL 

LC 

MOV 

MSG, (RO)-l- 

; start address 

OBUFF: 

.ASCIZ 

/These are the voyages .. 

CLR 

(no) + 

; channel # * 2 to print 


. EVEN 


CLR 

{R0) + 

; block t to print 

BLOCK:: 

.ASCII 

<nul><nul> 

CLR 

(R0) + 

; wait time for input 

CIIIIML: : 

.ASCII 

<nul><nul> 

cr.R 

(R0) + 

; optional modifiers 

MSGLEM: 

:.ASCII 

<nul><nul> 

.l.’RITE 


; go do it 




.EXIT 


; hello runtime 

TEST: 

MOV 

SOBUFF, R5 • 

.EMD PI 

:iMT 


LOOP: 

TGTB 

(R5) + 


As you can see. this program loads up the XRB with 
the information it needs, and goes and does its .WRITE, 
and then goes home. 


DUE 

SUD 

riov 

nov 

JSR 

.EXIT 

.EfTD 


LCX)P 

50BUFF+1, R5 
R5, riSGLEIl 
SODUFF, R5 
R5, PRItJT 

TEST 


this program runs the PRIilT 
subroutine once. 


globals follow 


data follov/s. 
./<cr><lf> 


; reserve 2 bytes of 


main program follows 

move start address into register 

is the byte nul? (end of message) 

no, try next byte. 

got message length 

move into message length 

put start address back 

do the v/rite 

say good-bye 

end of source, program. 


0 


5.2 PRINT Routine — Version 2. 

What might we reasonably want this PRINT routine 
to do? First, we should want to re-use it. so it has to go 
into subroutine form. Second, everything in version 1 is 
specified too exactly — we have to operate on channel 0, 
and print block 0. and make it whatever is in OBUFF, etc. 
So the second program should access memory locations 
which contain all this information. We could, of course, 
have it access registers, but if we wrote all our 
subroutines with such gay abandon, we would never be 
satisfied with a paltry 8 registers at all. A re-write of 
version 1 might well look like this: 

; Pl:i:iT £jubroutinc, omulcitcc f'A5nC + 

; PI:T:!7 titc.tcrient. 

; purc-Mute rs; 

; r‘S'':r,r;!'-contain:: Icn'jth of buffer 

; to move. 

; -channel * 2 to print to. 

; DLGC!’. -block f to print to. 

; R5 -conti-inr, £.tart acioroos 

; of output buffer. 


To assemble and run this you would command 

macro print, print = print 
macro test, test = common, test 
tkb test, test = test, print 
run test 

[Note: COMMON.MAC can be found on the SYSGEN tape.] 
5.4 Creating a File. 

This last example shows a subroutine which creates 
a file. There are a few new ideas and instructions used, 
but everything is pretty straightforward: 

1. Macro procedures — it becomes repetitive to 
write a similar piece of code several times, so 
macro procedures are employed. When the 
assembler finds a statement calling a macro 
procedure, it insets the procedure code in place 
of the call, and replaces the dummy variables in 
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DBL 

for 

RSTS 

DBL is a DEC DIBOL-11 source code compatible language and compiler, with 
structured extensions, available from DISC for RT-11, RSTS and RSX-11M operating 
systems. DBL runs under the RT-11 runtime under RSTS, and uses the normal RT-11 
linker to link DBL programs. Because DBL object modules are compatible between 
RT-11 and RSTS, it is possible to do program development under RSTS and run 
the same programs under RT-11. 

Some of the features offered with DBL under RSTS: 

• Structured Programming Extentions 

• A more powerful and sophisticated debug facility which requires no 
special linking of a “debug” module 

• Better ISAM support — file reorganizations are seldom necessary 

• Intra-job and Inter-job message communication 

• Easy interfacing with assembly-level subroutines and chaining to 
assembly-language programs 

Discounts are provided to OEM’s along the following discount structure: 

Quantity 1 $4,200.00 11 -25 $2,520.00 

2-10 $2,940.00 26 + $2,100.00 

Prices effective February 1, 1981 

For more information about DBL under RT-11, RSTS or RSX-11M, 
or any of DISC’S program development tools, call or write: 

DISC 

Digital Information Systems Corporation 

6247 Fair Oaks Blvd. 

DEC, DIBOL- 11 , RT- 11 , RSTS & RSX- 11 M CariTiichael, CA 95608 

are registered trademarks of Digital /n-i /1QC AQAd DBL and DISC are registered trademarks of 

Equipment Corporation. (y 10) ^00”^04y Digital Information Systems Corporation. 
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the definition with the passed parameters in the 
call. Dummy variables preceded by a question 
mark have special meaning: if the parameter is 
not supplied, they become a unique local symbol 
between 64$ and 127$. 

2. .PSECT — this instruction controls linking. In 
this case it is used to tell TKB that this piece of 
code is pure instructions. 

3. The stack — to use registers freely inside a 
subroutine, without destroying their previous 
contents, they are stored by “pushing” them 
onto the stack. At the end of the procedure, they 
are "popped" off, returning to them the values 
they held upon entry into the procedure. 

4. Local symbols — these are of the form 
<number>$. They are local to the .PSECT of 
code they appear In, and insure that separately 
assembled pieces of code do not conflict. 

To open a file for output, you have to load up the 
firqb with the file name in RAD50 format, plus Info like 
the disk and ppn, mode, filesize, etc. This is done by 
making the file string scan call. It automatically sets up 
most of the Information to do the open. The code looks 
like this: 

.title create a file (if possible) 

.ident /002trc/ 

; This module is a subroutine to creat a file. It is called by 

; JSR pc, create 

; It expects to see the address of the file name in rO and the channel 



to open 

in rl. It returns errors 

in location FIRon. 




; nacro definitions 


.nacro 

clear loc, len, regl, 

rec2, ?a; clear len bytes of nenory 


r.ov 

41oc, reel 

; starting at loc. 


:.\ov 

flen, recj2 


a: 

clr 

(reni)+ 



solj 

reg2, a 



,endn 

clear 

; end of macro 


.puect 

create, i 

; these arc instructions only 

crcc-tG; 

TiOV 

rr, -(G) 

; save recisters 


. OV 

rl, -(.- ) 



! OV 

;jcv 

r:, -(.nr) 
r3, -(.:-) 



clci'.r 

;ircb, 40/2, r?, r3 

; clear rTR''D and ::7.r. 


door 

:.r^, 20/?, r2, r3 



r.ov 

rC, xrb+xrloc 

; file nane start location 


clr 

r2 

; find lengti. of file name 

1$: 

tztb 

(rG) + 

; is this byte 0? 


bee 

2S 

; If so, drop out 


inch 

r2 

; else add 1 to the length 


br 

15 

; and try on the next byte 

2$: 

rov 

r2, xrb+xrlen 

; r.iove in length 


MOV 

r2, xrb+:;rbc 

; twice 


, f cs 


; and see if nane is legal 


tetb 

firqb 

; test for a returned error 


bne 

3$ 

; and cut out if you find one 


clear 

xrb, 20/2, r2, r3 

; the xrb got cirty 


DOVb 

.’’crefq, firnb+fefun 

; nove in create flag 


ash 

f»l, rl 

; multiply channel 5 by 2 


nov 

rl, firqb+fcfil 

; and nove it in 


calfip 


; try to create the file 

3$: 

MOV 

(sp)+, r3 

; restore registers 


nov 

(sp)+, r2 



r.ov 

(sp)+, rl 



r.ov 

(sp)+, rO 



rts 

pc 

; and go hone 


.end 

create 

; end of text 


What is going on is really pretty simple. We save the, 
registers, find the length of the file name string, set up 


the xrb, and see If the name Is legal. If it is, we set up the 
firqb and open the file. The only thing which should 
seem strange is the ASH instruction. It stands for 
Arithmetic SHift. This one means shift all the bits in r1 
left by 1. Bit 15 goes into the C bit. As the procedure 
dies, it restores the values of the registers it changed to 
their original contents. The calling program decides if 
the file was actually created by testing location FIRQB. 


5.5 Last comments. People tend to show off what they 
know (after all, why else write articles?). In the case of 
assembly language programming, DON’T DO IT! There 
are only a few times you will really need to program 
something in MACRO-11: some i/o, or a piece of code 
that has to be really fast or small. Remember that the 
cost for this is that development time will skyrocket, 
and the resulting code will be difficult to maintain—so 
don't plan on writing an accounts receivable package in 
assembly language, for you will still be at it when the 
company folds. 

A final note on tools: there Is a very good debugging 
tool called ODT. It allows you to establish breakpoints in 
your code, look at memory locations, change them and 
continue onward. Many people also do the same sorts of 
things from a higher level language, like Pascal or BASIC 
Plus 2. I think which approach you use is mostly a mat¬ 
ter of temperment, but that before too long, you'll find 
you will need some tool to work with. 


Appendix A 
COMMON.MAC 

; cori;:o!' — this ftlh cor:TAi::c tkh 

; DCFirilTIOriS TO DO ?.CTS/2 VEDBIOl! 7 
; rOI ITOn CALLS 

.TITLE coni;c:: nsTS coitnoi: dcfilitiods 

.ID.SDT /V07.01/ 

.PAcn 

; ASCII CnAIlACTER DrFItJITIONS 

i;uL ==000 

SOU ==001 

STX == 002 

CTX == 003 

EOT == 004 

Clio == 005 

Aci: == ooc 

r.FL == 007 

ns == 010 

HT == oil 

r.F == 012 

VT == 013 

TF == C14 

cr. == 015 

so == 016 

SI == 017 

DLL == 020 

DCl == 021 

DC2 == 022 

DC3 == 023 

DC4 == 024 

r:Ai: == 025 

SYi: == 026 

ETB == 027 

CA!1 == 030 

Eli == 031 

nun == 032 

CSC == 033 

rs == 034 

GS == 035 

RS == 036 

US == 037 

SPACE == 040 

IILI!:E == 137 

AGPTWE == 140 

LC.A == 141 

LC.D == 142 

LC.C == 143 

LC.D == 144 
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rx.c 

== 1A5 


r.c.F 

== 14G 


LC.G 

== 147 


LC.P 

== 150 


LC. I 

== 151 


LC. J 

== 152 


Lc.n 

== 153 


I.C.L 

== 154 


Lc.r- 

== 155 


LC.il 

== 156 


LC.O 

== 157 


LC.P 

== 160 


LC.C 

== 161 


LC.P 

== 162 


LC.S 

== 163 


LC.T 

== 164 


LC.U 

== 165 


LC.V 

== 166 


LC.t7 

== 167 


LC. :: 

== 170 


LC.Y 

== 171 


LC.7 

== 172 


IP.PjACC 

== 173 


vnnP7uP 

== 17 4 


Pr.PACL 

== 175 


TILDE 

== 176 


DEL 

== 177 


.PAGE 


CFAIJEEL DEFIIIITIOnS 

C!';.:io 

== C ,• 

CEAHEEL #0. 

cifAia 

== 2 ; 

CnAIlEEL 51. 

CPAP?. 

= = 4 ; 

CfWvUEDL 52 

CH/ill? 

== 6 

cpa:i!:el 53 

CPAIK 

== 10 

C!-AIIT:EL 5 4 

CnA!I5 

== 12 

CPAEPEL 55 

CILV:6 

== 14 

CPAriEEI, 56 

CIIA!I7 

== 16 

cpa:ii:el S7 

cfiApr 

== 20 

CPAEIIEL 58 

CPA!!? 

== 22 ; 

chaip:el 59 

CI:A!;10 

==24 ; 

C’iAEEEI, 510 

CPAPll 

== 25 

CILWriEL 511 

CPA!J12 

== 30 

CnAIPIEL 512 

CnA!il3 

==32 ; 

ci:a:::iet. 513 

CPA!;i4 

= = 3 4 ; 

CEAI.ETEL 514 

CPAIil? 

== 36 

CPAritTEL 515 

.PACE 


TPi-p.-EFEP CCETr.OL LLOCE DEFII.'ITIOPS 

(xnn). 

:;pLEr 

== 0 

LEEGTi: OF I/C DUFFEP IE DYTCC 

!;!’.';c 

== 2 

EYTE COPET FOR TPAESFEP 

EPLOC 

== 4 

POIETEP TC START OF I/C DUFFEP 

:c’Ci 

== 6 

c.'!a::;:!:el ' * 2 foe access 


== 7 

PAfiDo:: ACCESS plock FunsER C'.sr.) 

EPEL" 

== 10 

rAr!Dor: access flock iRPiP.EP. (lsp) 

EPTIPE 

== 12 

v.M'i' TiriE FOP tcp.:ii::al ieput 

OE 

== 14 

DEVICE r:ODIFIEPS 


== 16 

sir.E OF i:i evtes 

.PAGE 


FILE REOUEST queue ELOCK DEFIMITIOUS 
(FIROD) 

FQJCB 

== 2 

JOD MUMBEP * 2 

FQFUM 

== 3 

Fipyuuo FUIlCTIOri requested 

FOEPtlO 

== 4 

ERROR riESSAGE CODE AMD TEXT BEGIN 

FOFIL 

== 4 

CHANNEL 5*2 

Fosizn 

== 5 

FILE SIZE IN BLOCKS (HSB). 

FOPPtT 

== 6 

PPN OF USER ISSUING REQUEST 

FOIlAIll 

== 10 ; 

; 2 L’ORD FILE NAME IN RADIX-50 FORMAT. 

FOEXT 

= =14 

; FILE NAME EXTENSION IN RADIX-50. 

FQSIZ 

== 16 

; FILE SIZE IN BLOCKS (LSD). 

FQHAfl2 

== 20 

3 WORD NEW FILENAME AND EXTENSION 

IN PADIX-50 FORMAT. 

fobufl 

== 20 

DEFAULT BUFFER LENGTH. 

FQflODE 

== 22 

MODE INDICATOR. 

FQFLAC 

== 24 

LOW BYTE — OPEHNED FILE'S FLAG WORD 
AS RETURNED. 

FQPROT 

== 27 

NEW PROTECTION CODE 

FQDEV 

== 30 

2 BYTE DEVICE NAME IN ASCII 

FQDEVn 

== 32 

LOW BYTE - DEVICE UNIT NUMBER. 

HIGH BYTE — DEVICE UNIT NUMBER FLAG. 

FOCLUS 

== 34 

FILE CLUSTER SIZE FOR FILE CREATIONS. 

FQNENT 

== 36 

NUMBER OF ENTRIES ON DIRECTORY LOOKUP 
OR ENTRY PARAMETER. 

FOBSIZ 

== 40 

; SIZE OF FIRQB IN BYTES. 

.PAGE 


; MONITOR CALLS (EMT’S) 

CALFIP 

== 104000 

; CALL FIP 

.READ 

== 104002 

; READ FROM A DEVICE 

.WRITE 

== 104004 

; WRITE TO A DEVICE 

.CORE 

== 104006 

; CHANGE JOB IMAGE SIZE 

.SLEEP 

== 104010 

; SUSPEND A JOD 

.PEEK 

== 104012 

; PEEK AT MONITOR MEMORY 

.SPEC 

== 104014 

; DO DEVICE SPECIAL FUNCTION 

.TTAPE 

== 104016 

; ENABLE TAPE MODE 

.TTECH 

== 104020 

; ENABLE ECHO 

.TTMCH 

== 104022 

; DISABLE ECHO 


.TTDDT 

== 

104C24 j 

r DISABLE FULL LINE BUFFERING(ODT MODE) 

.TTRST 

== 

104026 J 

! CANCEL 0 EFFECT. 

.TI!1E 


104030 ; 

! RETURN JOB TIMING INFORMATION 

.POSTN 

== 

104032 ; 

r RETURN DEVICE HORIZONTAL POSITION 

.DATE 

== 

104034 ; 

: GET CURRENT DATE, TIME, JOB INFO 

.SET 

== 

104036 ) 

; SET KEY WORD BITS 

.ST AT 

= :c 

104040 J 

! RETURN JOD STATISTIOCS 

.RUN 

= = 

104042 J 

; RUN A PROGPJWl 

. !JAME 

= = 

104044 ; 

: CHANGE PROGRAM NAME 

.EXIT 

= = 

104046 ; 

: EXIT TO SYSTEM DEFAULT RTS. 

.RTS 


104050 ; 

: CHANGE TO A NEW RTS. 

.ERLOG 

= = 

104052 ; 

LOG AN ERROR FROM THE RTS. 

.LOGS 

= » 

104054 ; 

CHECK FOR LOGICAL DEVICE NAME 

.CLEAR 

= * 

104056 ; 

: CLEAR BITS IN KEY WORD 

.MESAG 


104060 ; 

MESSAGE SEND/RECEIVE 

.CCL 

= = 

104062 ; 

CHECK FOR AND EXECUTE A CCL COMflAND 

.FSS 

= = 

104064 ; 

TERMINATING FILE NAME STRING SCANNER 

.UUO 

= = 

104066 ; 

UUO HOOK 

.CHAIN 

= = 

104070 ; 

CHAIN TO A NEW PROGRAI! 

.PAGE 







FIP FUNCTIOIT CALLS 

CLSFQ 

= = 

0 

CLOSE A CHANNEL 

OPNFO 

= = 

2 

OPE!! AN EXISTING FILE ON A CHANNEL 

CREFO 

= = 

4 

CREATE A FILE 

DLNFO 

= = 

6 

DELETE A FILE 

RENFO 


10 ; 

: RENAME A FILE ON DISK OR DECTAPE. 

DIRFO 

= = 

12 ; 

; RETURN DIRECTORY INFORMATION. 

UUOFO 

= = 

14 J 

1 PROCESS UUO. 

FRRFO 

= = 

16 ; 

; RETURN ERROR MESSAGE TEXT 

RSTFO 

= = 

20 ; 

! RESET CHANT:nL(S). 

LOKFO 

= = 

22 ; 

: LOOKUP A FILE 

ASSFO 

= = 

24 ; 

ASSIGN A DEVICE 

DEAFC 

= = 

26 ; 

DEASSIGI’ A DEVICE 

DALFQ 


30 ; 

DEASSIGN ALL DEVICES 

CFTFO 

= = 

32 ; 

CREATE A TEMPORJ^RY FILE 

CRDFQ 


34 ; 

CREATE A COr^PILED FILE 


.P/C” 


.urio/iMJoro cur.FL'r.'Cvio:] ccr<;.r; dufi.-u.d 


UU.ATR 

== 

177747 

READ/WRITE ATTRIBUTES DEFINED 

UU.CCL 

__ 

177758 

ADD/DELETE CCL COMN.AND 

UU. LOG 

ss 

177755 

SET NUMBER OF ALLOWED LOGINS 

UU.RTS 


177756 

RUN-TIME SYSTEM CONTROL 

UU.!IAN 

== 

177757 

SET FILE'S RTS NAME 

UU.DIE 


177760 

SPECIAL SHUTUP LOGOUT 

UU.ACT 

3 = 

177761 

ACCOUNTING INFORI'-ATION DNN.P 

UU.DAT 

= 3 

177762 

DATE/TIME CHANGER 

UU.PRI 

33 

177763 

PRIORITY, RUN BURST, JOB MAX CHANGER 

UU.TD2 

33 

177764 

GET .MONITOR TABLES, PART II 

UU.BCK 

33 

177765 

CHANGE FILE BACKUP STATISTICS 

UU. HNG 

= = 

177767 

PANGUP/EIIADLE A DATASET 

UU.FCB 

33 

177770 ; 

! PETURJ! FCB/DDB It!FORr!ATION 

UU. POK 

S3 

177772 ; 

; POKE MONITOR MEMORY 

UU.TDl 

33 

177775 ; 

: GET .MONITOR TABLES, PART I 

UU. t?LG 

33 

177776 ; 

( SET NUMBER OF ALLOWED LOGINS TO 1. 

UU.YLG 

= = 

177777 J 

t SET NUMBER OF ALLOL'ED LOGINS TO MAX 

UU.PAS 


000000 

CREATE Ai: ACCOUNT 

UU.DLU 

33 

000001 

DELETE AN ACCOUNT 

UU.CLN 

S3 

OOOOt)2 

CLEAN A DISK PACK 

UU.MNT 

33 

000003 

MOUUT/DISMOUNT A DISK PACK 

UU.LIN 

33 

000004 

LOGIN 

UU.PYE 

33 

000005 

LOGOUT 

UU.ATT 

33 

000006 

ATTACH 

UU.DET 

= = 

000007 

DETACH 

UU.CHU 

= = 

000010 

CHANGE PASSWORD/OUOTA 

UU.ERR 

33 

000011 

GET ERROR N.ESSAGE TEXT 

UU.ASS 

33 

000012 

ASSIGN A DEVICE 

UU.DEA 

33 

000013 

DEASSIGN A DEVICE 

UU.DAL 

33 

000014 

DEASSIGM ALL DEVICES 

UU.ZER 

S3 

000015 

ZERO A DEVICE 

UU.RAD 

s s 

000016 

READ ACCOUriTING INFORMATION 

UU.DIR 

= = 

000017 

RETURN DIRECTORY INFORMATION 

UU.TRM 

33 

000020 

SET TERMINAL CHAR7.CTERISTICS 

UU. I. OK 

33 

000021 

'.JILDCARD directory LOOKUP 

UU.CHE 

33 

000023 

ENABLE DISABLE CACHE 

UU.CNV 

33 

000024 

CONVERT DATE/TINE TO ASCII 

UU.SLN 

33 

000025 

SET/CLEAR SYSTEM WIDE LOGICAL NAMES 

UU.StJP 


000027 

ADD/RENOVE SWAP, OVERLY OR ERROR 
MESSAGE FILES 

UU.JOD 

.PAGE 

.3 

000030 

; JOB CREATION 


.•!0!!iron Lor f'ctiony ap.ka defi!td 


DATE 

33 

1000 

CURRENT 

DATE III INTERNAL FORM 

TIME 

= = 

1002 

CURRE!’T 

TIME I!I INTERNAL FORM 

TIMSEC 

= = 

1004 

S ECO! JDS 

TO NEXT ni!.'UTE 

TIMCLK 


1005 

TICKS TC NEXT SECOND 

JOB 

= = 

1006 

JOD CURRENTLY RU!.':!ING 

NEXT 


1007 

!-E.KT JOB TO RUN 

JODDA 

= = 

1010 J 

! POINTER 

TO CURRENT JOB DATA BLOCK 

JODF 

= = 

1012 ; 

r POI!?TER 

TC CURRENT FLAGS 

lOSTS 

= = 

1014 J 

! POirJTER 

TO CURRENT I/C STATUS 

JOBWRK 

33 

1016 ; 

1 POINTER 

TO JOB'S WORK BLOCK 

JOBJD2 

33 

1020 ; 

; POItITER 

TO JOB'S 2ND JOB DATA BLOCK 

JOBRTS 

= = 

1022 J 

: POII.'TER 

TO JOB'S RTS BLOCK 

CPUTIM 

“ = 

1024 ; 

f POII.'TER 

TO CURRENT CPU TIME BUCKET 


.PAGE 
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CLASSIFIE 


D Send Classified Ads to; RSTS Classified. P.O. Box 361. Fort Washing¬ 
ton. PA 19034. 51.00 per word, first 12 words free with one year’s 
subscription.) 


We need space and time! Need 1170 
RSTS time and office space in Southern 
California evening and weekend use! 
Will pay % of your lease costs. Call 
Allen (213) 394-3857. 


RSTS/E BASIC+ , DIBOL Programmers 
call or send resume to Sfcientific Place¬ 
ment, Inc., P.O. Box 19949, Houston, TX 
77024; (713) 496-6100. 


MEDIA TRANSFER SERVICES - We can 
transfer your data between any of the 
following media: RK05, RK06, RK07, 
RX01, and 800 BPI 9 Track MT. We han¬ 
dle most DIGITAL directory structures 
on a fast turn around basis and also of¬ 
fer programming services for any 
special transfer problems you may have. 
Call (201) 584-4026 Advanced Digital 
Data, 354 Route 206, Flanders, New 
Jersey 07836. Authorized DIGITAL 
DISTRIBUTOR. 


FORTRAN Software Design and Im¬ 
plementation at reasonable cost. RSTS, 
RT-11, and RSX are our specialty. 
Golden Triangle Computers, Box 1866, 
Orange, TX 77630, (713) 883-4588. 


DOUBLE YOUR LA36 
OECWRITER S SPEED TO 60 CPS 


The ACCELEWRITER converter enablesyou 
to convert the LA36 Decwriter from 10/15/30 
to 10/30/60 CPS. 

Utilizes Decwriter’s own built-in 60 CPS 
speed 

Plugs into logic board 
Compatible with Decwriter option boards 
Decwriter reconverts to “stock" in 
seconds 
Thousands sold 
In use for over 3 years 
Full one-year warranty 
$115 includes shipping 

Brochure sent promptly at your request 
Write or call us. 


LARKS ELECTRONICS & DATA 

P 0. Box 22. Skokie. IL 60077 
(312) 677-6080 



11 Blue 7 DEC LSI-11 Transduction, 
1645-11 SIsmet Road, Mississauga (416) 
625-1907. 


For competitive software needs write 
pAr, 417 Tulsiani, Nariman Point, Bom¬ 
bay, India. 


EDUCATORS: RSTS/E software needed. 
Contact Steve Dudley, Brunswick 
School, Greenwich, CT. 06830. 


RSTS INTERNALS, TUNING, RT11/RSX 
MACRO under RSTS consultation & pro¬ 
gramming — call MACRO MAN, Bob 
Meyer, (609) 298-9127. 


Now paying $5050 for used DEC RK07 
drives. Call Alvin at (714) 732-0782. 


H&R for electronics, 401 E. Erie Avenue, 
Philadelphia, PA 19134, request catalog. 


Australian DEC specialists. Call 
(02)4766820. 


Gary Oppenheimer-Consulting (9 years 
experience with RSTS & RSTS/E). N.Y.C. 
area (212) 787-2416. 


‘Art in RSTS/E’ — Optimization, 
Sysgens, and other RSTS/E consulting. 
Jeffrey R. Harrow (404) 294-1999. 


For Sale: Systems Industries Model 9500 
SMD Controller complete with cables, 
manual $3,500 30 day warranty. Con- 
solldted Funding Corporation, 2361 W. 
Devon, Elk Grove, IL 60007 (312) 
766-1400. 


Connect your office to the future with 
cableshare’s inter-office communication 
system. Electronic Mail, Word Process¬ 
ing, Electronic Filing, Message 
Switching, and more for RSTS users. 


DEC systems and components - buy and 
sell. Western Data Sales, Inc., 23520 
Telo St. #12, Torrance, CA 90503, (213) 
539-8917. 


Systems Analysis, Design and Program¬ 
ming. RSTS and many other systems. 
Phone QIC, (213) 506-8700. 


RSTS/E Medical Billing Programs, Pete 
Johnson (505) 255-3777. 


PDP-11 :RSX,RT, VAX:VMS Is there a VAX 
In your future? Do you need an APPLICA¬ 
TION MIGRATION EXPERT? Application 
and system consulting, analysis, design, 
configuration. Twenty years DEC/DP ex¬ 
perience. Give me your tough problems. 
Carl E. Friedber, PH.D., In House 
Systems, P.O. Box 1063, New York, NY 
10007 (212) 233-5470. 


RSTS/E freelance work In San Diego, call 
Gary (714) 263-7321. 


How-to COPYRIGHT SOFTWARE. $9.50 
to Sofprotex, Box 271-P, Belmont, CA 
94002. 


Protect your PDP11 from damage with 
Nassau Systems over temperature pro¬ 
tection unit. Box 19329, Cincinnati, OH 
45219. 


$200 RSTS/E* 

WORD PROCESSOR 
CBEDIT.BAS 

Single Basic-Plus* program with 
CRT input, window edit and file 
save. Add, locate, change, replace, 
delete, block move & copy, stan¬ 
dard paragraph append, etc. VT* 
series and Hazeltine terminal 
drivers. Others easy to add. 

Fully formatted output (margins, 
justify, center, underscore, 
headers, page numbers, etc.) to 
terminal, disk or line printer. Bi¬ 
directional driver for Diablo. We 
use it daily for all our secretarial 
work. 

9-Track $200 R K05 $260 ppd 

T. F. Hudgins & Assoc., Inc. 
P.O. Box 10946 Houston TX77018 
Woods Martin 713/682-3651 

*TM Digital Equipment Corporation 


3 11/34 MM11DP Core Boards, Craig 
(916) 666-1691. 


RSTS BASIC and BASIC-PLUS-II Pro¬ 
gramming Service Company. 


RSTS/E and BASIC-PLUS Programming 
Training Courses. Conducted at your 
site. Edge Data Corporation, 100 
Franklin Street, Boston, MA 02110 (617) 
451-1919. 


BT-100AA $1595.00, LA-34DA $1095.00, 
DataGuard Corporation (312) 985-4615. 


RSTS 

RESCUE 

SQUAD 

We salvage all kinds of disasters: 

• unreadable disks 

• ruined UFDs and MFDs repaired 

• immediate response 

• telephone DIAL-UP 

• on-site 

• software tools 

• custom recovery 

Brought to you by 

On Track Systems, Inc. 

and a well known (and read) 
Disk Directory expert. 

CALL 24 HOURS 
215-542-7008 
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GENERAL 

ACCOUNTING 

MCBA applications A/P, G/L, 
P/R, A/P, INV including source. 
*750 each 

David Talbot 

Interstate Data Systems 

214 West Main 
Urbana, IL 61801 

(217) 337-1144 


FOR SALE: DH11-AE, DH11-AD, DEC 
Maintained. Terms: List less 5%. FOB 
Phila. Cash in advance. Call Dave 
Mallery, (215) 364-2800. 


MACRO SYSTAT 7.0 LARGE FIP 
Super Fast — almost no CPU, all stan¬ 
dard features -i- core & open file by job. 
Works with RSX or BP2 RTS’s. Nine 
track 800 or 1600 only. Send *40°° cash, 
check or m/o. Bob Meyer, 9 Lockwood 
Ave., Fieldsboro, NJ 08505. 


HARDWARE & SOFTWARE DESIGN 
Mini — Micro 
RSTS, A Specialty 

Scott Banks, Systems Design, 1108 
Morefield Rd., Phila., PA 19115. (215) 
677-4836. 


Programmer wants job BASIC-PLUS, 
Boston, 20K, 6 MO/YR, Tom Pears (167) 
698-7800. 


DELAWARE 

VALLEY 

TIMESHARING 

Eastern Pennsylvania 
Philadelphia 
South Jersey 

DEC 11/70 RSTS/E 

24 hours - 7 days 
Most commerical packages 
Custom work, Raw time 

NATIONWIDE DATA DIALOG 

70 James Way 
Southampton, Pa. 18966 
215-364-2800 


DEC 

BUY 


FOR SALE 


SELL 

SYSTEMS 


OPTIONS 


MEDIA/CABLES* 

11/23 with 

RK711 EA 

VT100AA 

BA11KE 

RL01K 

128KB 

RL01AK 

DZ11A 

FP11A 

RM02/03 

RL02 

RL211AK 

DUP11DA 

DM11DC 


LAI 80 

RK05J 

DL11E 

OM11BB 

BC05C.D 

VT100 

DD11DK 

DL11WA 

DR11C 

BC03L.M 

CTS 300 

MS11JP 

DL11WB 

DB11A 

BC11A 

VAX 11/780 

MS11LB 

DLV11E 

H960CA 

•DEC Comp. 


WESTERN DATA SALES. INC. 
(formarly Wastarn Data Systams) 
23520 Talo St. #12 Torranca. Ca. 90503 
213/539-8917 



The producers of the RSTS Professional 
are now using “telecomphotoset” - telephone 
communicated phototypesetting. 

This method is the latest in typesetting 
technology. We are now able to receive data 
directly from your computer or word processor 
to our phototypesetter. Once these keystrokes 
have been “captured”, we will mold your copy 
to your specifications, or to our design if you 
wish, and send to you camera ready mechani- 
ceils or final printed material. 


NOl K M \l 

ANM Al HI POK I BOOK M VVSl I I I I R 

IS Jl SI A PHONE CALL AWAY! 
SAl f I IMt A.\0 MO\f \ I all or urite for further details: 

5041 frankford avenue. 2nd floor. Philadelphia, pa 19124 • (215) 357-0782 





; 

J'T-OTL 


20 




; JOD UIIirUE LO’.- .”.Ef:Or.V LAYOUT 


== 

26 




; 

jE::’:r-- 

= =: 

-.2 

USERSP 

== 

400 

; DEFAULT STACI' AREA 

J.\'. I 

= = 


KEY 

== 

400 

; f:ey ’..’onB or job's currei’t g'-’A'"u.s 

•.”7 

* = 

2r> 

FIROR 

== 

402 

; FILE REOUEST OUEUF BLOCi: 

.7 .''T: 

= = 

" o 

>;rc 

== 

442 

; TPAtlGFER PEOUEST OUEUE FLOCK 

.'.p 

= = 

27 

CORCIill 

== 

460 

; COPE coiir.n:: 




usRPPi: 

== 

734 

; USEP'.S .^SSIG:’APL.E PPL 




UCRPRT 

== 

736 

; USEP'.E ASGIGEAtBLE P.-IOTECTION CODE 

srp^sT 

= = 

ryc'-ui 





.T JO—' 

= = 

r.nroc? 

U.*^RI.OC 

== 

740 

; USER'S LOGICAL DPVICE TAPL:: 

.'.■'GC 

= = 

or -''’i 





J -.’'SO 

= rT 

rTfif 22 

r.'JTORG 

== 

lOOC 

; END OF L(r.- fiEEOPY FIXED LA'/OUT 


= - 

-e r r 'r 





P'L' 

HI 

C^riop 

. PACE 




’PRO 

= = 


J03F 


1012 

; POI'jTP: to CUPRPI’T FLAGG 

JFL’.'L'’ 

= = 

.''OP.'CO 

lOST.S 

== 

1014 

; POI-rpiP TO CUr.RFI’T I/O Sl’ATU.E 


z‘l 

JOB'. IRK 

== 

1016 

; POI’ITER TC JOB'S ’.’o.p:: p.r.OC!: 

^ . .. • 

= z. 

on/ op: 

JOBJD2 

== 

1020 

; POr'TEP TO JOB'.S 2:’D JOB DA'-'A BLOC:: 


=■= 

r.ioco: 

CPfTOO 

c.'ornp 

icnrnr 

JOBF.TS 

CPUTin 

== 

1022 

1024 

; FOIRTEP 'I'D JOD'.G .R7G rj.OCi: 

; POI’’VEP I’O CURPPI’T CPU TILE FUCKET 


__ 

. p; 0 p 



; 

; JO” IR’inUE LO’..’ .-.E.LOPY LAYOUT 

cr?’.-'' 


noi 




; 

jr?::T-: 

== 

C02 





jrpu:: 

== 

CC4 

uGPPr? 

==.- 

400 

; DLF.MIL7 STACi; AREA 

jrr pp 

== 

CIO 

PI.V 


400 

; i.-or.D or jop'.e curpei’t .statu.” 

JEST/:: 

== 

020 

ripo" 


•02 

; FIL' LEOULFT OUEUE BLOCK 

JF.T'P” 

== 

040 


== 

2 

; 'T'rsrz? .PEOUEST ouniE BI.OCK 

jr"iL2 

== 

100 

core • ■ 

== 

460 

; COPS. coL’io:: 

jr::iLi, 

== 

200 

u.'-p??:' 

== 

734 

; urzr'y. ASsic'VvrLi: ppl 
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FGP?- 7 

== 

7 36 

; U-EPP'.” AGriC'.’A”L:: PPOTECTIOL CODE 



UFPi.or 

== 

7.‘C 

; UGPr:'P LOGICAL DIA’ICE T’.PI.:: 




rsTO.-'r. 

== 

lOOC 

; SLP OP T.O’. L.EilOPV FII^ED LAYOUT 

J27IC:- 


c 





J2CPU 


2 





JPCOI’ 

= = 

4 




; 

J2: C7 

= = 

5 




; JO- L. 'LOCK "1 DEFT-’Ro 







; (J:'‘) 

; 

J2DCV 

= H 

10 




J2i'.C7:: 

= = 

1? 





J2CPUr: 

= = 

13 

Tf - 

= rr 

n 

; POIiTJ!' ’I’O 7!'P I/O BLOC:' (ICP) 

j2r!A:iE 

= = 

14 


= = 

2 

; JO,- :-7.\’”i’}- FLAGG 





= = 

4 
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NEWS 

RELEASES 



Occasionally we are requested to pnnt news that may be of in¬ 
terest to the RSTS community. We are happy to offer this feature 
to our readers We reserve the nght to pnnt only as time and 
space permit We cannot return photos or manuscripts. Send 
news releases to; RSTS NEWS RELEASE PO. Box 361, Fort 
Washington. PA 19034. 


October 27, 1980 

QUODATA ANNOUNCES LOW COST PDP-11 
WORD PROCESSING/DATA MANAGEMENT 
SYSTEMS 

Hartford, Connecticut — QUODATA Corpora¬ 
tion announces its new series of low cost QW 
systems which provide simultaneous word 
processing and data management. The systems 
are built around the PDP-11 family of 
computers from Digital Equipment Corporation. 
Besides word processing, features include large 
file capacities, comprehensive report generation, 
and flexible sorting and selection capabilities. 

QW systems, says QUODATA spokesman, 
"embody a different concept than that employed 
by most of the giants. Unfortunately, they use 
the approach of overlaying data management 
on otherwise excellent word processing 
software. The result is that file sizes, sorting 
limitations, and other restrictions preclude 
proper data management.QUODATA, takes the 
reverse tack. We start with the most established 
and popular data processing timeshared 
operating system available on low cost 
computers: RSTS/E. Then we add the QWORD 
word processing software to the already proven 
QDMS data management system." 

Inexpensive Timesharing With Power 

At the low end, users can start with a system 
which costs as little as $39,900. The QW620 
consists of dec's new, popular PDP—11/23 
with 192K bytes of memory, four port 
multiplexor, two disk drives with 20 megabytes 
of removable storage, VTIOO video console, 
QDMS, QWORD, and RSTS/E software, DEC 
will install and maintain the hardware under a 
service contract. 

Users can obtain a processor as large as the 
new DEC PDP-11/44 or even the 11/70, 
capable of handling well over fifty users 
simultaneously. More than a billion bytes of 
disk storage can be added to these systems, as 
well as almost any combination of terminals, 
letter quality printers, and high speed draft or 
data processing printers. 

Word Processing and Data Management 
Simultaneously 

The QW series allows simultaneous use by a 
number of people for both word processing and 
data management. On the one hand, you can 
prepare single documents or mass mailings. On 
the other hand, you can perform data 
processing functions such as interactively 
update files and access data, sort and select, run 
application programs or generate instant 
reports. 

The list processing option is an example of 
one function that combines both word and data 
management. It allows you to produce the same 
kind of output over and over again — a letter, 
standardized form, row in a table such as 
telephone directory; even with certain data 
varying from one piece of output to the other. 
Specific data may be taken from records in the 
data base and merged into the document which 
is then reproduced a number of times. "Fields" 
within the finished documents will contain data 
taken from individual records within the data 
base. 


The QWORD software is 'menu driven' and 
therefore very versatile. Users can add, delete, 
transpose or duplicate text. Words, sentences, 
paragraphs, pages or even entire documents 
can be manipulated easily. Special color-coded 
keys exist to facilitate such tasks as setting 
margins and tabs, centering, and deleting or 
transposing parts of documents. QWORD is 
functionally similar to DEC's WPS/8 word 
processing system for the PDP8. 

In addition to color-coded keys, the system 
prompts the operator to provide next-step 
choices as well as error messages. The system 
can also store commonly used abbreviations 
and paragraphs. Stored text saves time and 
reduces error by allowing insertion of 
commonly used phrases, company or product 
names, paragraphs or other information by 
simply using a few key strokes. 

Instant Reports 

Reporting is a strong suit. Two variations of 
the report writer exist. One is called PDQ, which 
permits non-technical staff to generate instant 
reports under computer guidance. A more 
sophisticated variation of the report writer can 
handle virtually any format desired. Control 
breaks, extensive calculations, subtotals and 
many other features are standard. Sort and 
selection options are easy to use. More than a 
million records may be sorted, and over 2(X) 
levels of selection critera exist. 

Proven Components Integrated 

The PDPll is the world's most popular 
minicomputer family. RSTS/E is recognized as 
the easiest to use and most popular interactive 
timesharing system available on a mini¬ 
computer. It is versatile, sophisticated, and 
proven operating software, boasting some 
20,000 installations. RSTS/E supports con¬ 
current, interactive and batch processing, 
BASIC-plus, BASIC-plus II, COBOL, FORTRAN, 
PASCAL APL, RPGII, PL/I, assembler and more 
programming languages. This same RSTS/E 
can run on 11/23, 11/34, 11/44, 11/60 and 
11/70 computers with as many as 63 
independent user jobs and connections to 127 
terminals. QUODATA, not DEC, supports 
RSTS/E on the 11/23. 

The QDMS Data Management Systems has 
received high marks from users for its exentsive 
report generation facilities, and ease of use by 
non-technical personnel. Users can build data 
files quickly, and obtain reports from several 
files simultaneously. QDMS saves programming 
time and lets even first-time users create and 
run reports themselves. 

Additional inquiries should be addressed to 
Barbara Westley, Marketing. 


February 6, 1981 

RABBIT-2 PERFORMANCE ANALYSIS FOR 
VAX/VMS AND RSTS/E USERS 
RELEASE 2.0 

West Palm Beach, Florida — RAXCO Inc. 
announces Release 2.0 of RABBIT-2, a computer 
performance analysis system for VAX/VMS and 
RSTS/E environments. 

New features, enhancements, and options 
increase system efficiencies, extend capabilities 
and add new analytical techniques under the 
new release. 

New commands include PROFILE, which 
will quickly provide a statistical analysis of user 
resource demand; RATIO displays resource 
consumption per connect hour or per second; 
RANK will list users in order of demand; WHO 
will provide user lists for relevant time period; 
HELP will list over 30 commands and 
associated formats. 

One new option available under RSTS is the 
ability to determine the percentage of time users 
spend in various states, such as RUN, SLEEP, 
'TERMINAL INPUT/OUTPUT etc. 

Another option for both VMS and RSTS is 
program efficiency analysis whereby individual 
program statistics are generated. The program is 
identified, and frequency plus quantity of usage 
are developed. 


RABBIT-2 is a command driven analytical 
tool for investigating computer resource 
demand, bottlenecks, and throughput over 
specified time periods. The system data may be 
viewed in the aggregate or split into batch, 
interactive and detatched segments for analysis. 

RABBIT-2 is priced from $99/month rental 
or $2495 permanent license and is available 
through RAXCO and Distributors in the U.S., 

U K. and Canada. 

RAXCO provides a wide range of 
operational software for DEC computers ranging 
from JOB ACCOUNTING, RESOURCE AUDIT¬ 
ING AND BILUNG, FILE SECURITY, DATA 
MANAGEMENT and FINANCIAL PLANNING. 

For more information contact: RAXCO Inc., 
3336 N. Flagler Drive, West Palm Beach, 

Florida 33407, U.S.A. Phone; (305) 842-2115 


February 1981 

FINAR INTRODUCES "FINESS" HIGH-SPEED 
FINANCIAL MODEUNG SOFTWARE FOR 
PDP-11 

Denver, Co. — Mr. Tony Kobine, Marketing 
Director at Finar Systems, Ltd. announced the 
availability of a new, high-speed version of the 
successful FINAR, Financial Analysis and 
Reporting language, for the DEC PDP-11. 

Called FINESS - "FINAR Extra Speed", this 
new version takes advantage of the overlay 
features of Basic-Plus-2. The result is a product 
that runs several times faster than the Basic-Plus 
version, and has the same appearance to both 
the user and the internal file structures. 

FINESS will provide financial managers and 
planners with the same easy-to-use modeling 
system as FINAR for budgeting, forecasting, 
consolidation, investment evaluation and similar 
activities, at higher speeds — especially 
important when analyzing "what if*?" 
alternatives. 

Prices for FINAR start at $18,000. For 
further information call or write: Tony Kobine, 
Finar Systems, Ltd., 6CX)0 E. Evans, Suite 2-3C)0, 
Denver, CO 80222 (303) 75a7561. 


February 1981 

FINAR — FINANCIAL ANALYSIS AND 
REPORTING SOFTWARE IS NOW AVAILABLE 
FOR DEC VAX-11 

Denver, CO. — Mr. Tony Kobine, Marketing 
Director at Finar Systems Ltd. announced the 
availability of FINAR on the DEC VAX-11, 
running in "native-mode" under VMS. 

FINAR, the Financial Analysis and 
Reporting system has been available for four 
years on the PDP-11, and has provided 
managers and planners with an easy-to-use 
modeling system for budgeting, forecasting, 
consolidation, investment evaluation and similar 
activities. 

"The VAX version of FINAR is a powerful 
addition to the software," said Mr. Kobine. "It 
will enable users of this system to carry out 
high-quality, high-speed modeling — especially 
important when evaluating alternatives in 'What 
if 7 analysis" 

Current FINAR users who follow the natural 
migration from PDP-11 to VAX can continue 
with no external change in function, and a 
simple transfer of data and program files. 

Prices for FINAR start at $18,000. For 
further information, call or write: Tony Kobine, 
Finar Systems, Ltd., 6000 E. Evans, Suite 2-300, 
Denver, CO. 80222, (303) 758-7561. 


January 30, 1981 

COSAP STATIS'HCAL PACKAGE FROM 
LAWRENCE UNIVERSITY 

Appleton, Wisconsin — Lawrence University has 
announced Version 2B of COSAP, a Conversa¬ 
tionally Oriented Statistical Analysis Package 
for RSTS/E. 

Version 2B of COSAP brings RSTS/E users 
a coherent and varsatile set of routines featur¬ 
ing: convenient terminal data entry; flexible 
commands for editing or transforming data; 
many types of analysis for discrete and continu- 
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ous data; a powerful select mode; a uniform 
data format; a conversational environment; 
ample capacity (up to 32767 observations on 
up to 4095 double-precision variables or 8191 
single-precision variables); only 8 KW of 
memory per user. 

The licensed package consists of the BASIC- 
PLUS source code for all modules, internal table 
files, and test data files. Printed documentation 
includes detailed instructions for installation, 
codebooks for test data files, and the compre¬ 
hensive User's Guide to COSAP. 

Although Version 2B is a proprietary 
licensed product, a spokesperson from Lawrence 
noted that the 1973 version of COSAP would 
remain in the DECUS program library because 
it has reputedly been one of the most frequently 
requested items in the entire library. 

The software product announcement for 
COSAP Version 2B may be requested from: 
Computer Center Publications, Lawrence Uni¬ 
versity, Box 599, Appleton, Wisconsin, 54912. 
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LETTERS to the RSTS Pro... 

... continued from page 6 

Here's what our new photo contests inspired. 
(RSTS Professional Vol 2, #4, p. 83, Dave 
Maliery, ''Best Caption";p. 91, WilliamShakes- 
pere at Stratford upon A von. The question con¬ 
cerning Stonehenge, (Salisbury Plain, Wiltshire, 
England), p. 19, was not intended as a contest, 
but simply a rhetorical statement. However, 
because we received a few comments we decided 
to include the photo as part of this months 
feature.) 

Dear Dave and Carl, 

I’d like to enter the following caption in your 
contest. 

“You mean I can’t play DUNGEON on a 
VAX?!!’’ 

1 enjoy you magazine very much and look 
forward to the next issue. 

Sincerely, Ronald Charbonneau 
Pittsfield School District 
Pittsfield, MA 

Dear RSTS Prolessional: 

It’s anyone’s guess as to what Dave Maliery 
was thinking or about to say in the picture, but 
he certainly looks surprised to me. 

After San Diego, I would offer a caption of 
either: 

“You’re running 63 jobs with 96 ports on an 
11 70 under Version 7.0 and NO SMALL 
BUFFER problems!! Come on!!!” 

OR 

“Did you just say that you know how to solve the 
SMALL BUFFER problem once and forall???” 

I really enjoy reading your magazine and anx¬ 
iously await its arrival. I think that many of the 
articles contain information that is useful to 
many people at all levels. I wish that we could see 
the RSTS Professional distributed more often. 

Very truly yours, 
Arnold V. Fish, President 
Integrated Computer Systems, Inc. 

“Oh-h-h-h No-o-o-o! I don’t speak his language.” 

Ed Hamaker 
Amos Press Inc., Sidney, OH 

Carl & Dave 

Concerning your photo caption contest, how 
about— 

“You mean someone has solved the small buffer 
problem?!!!!”. 

I’m still working on the last issue’s TECO 
problem. A few months ago I was driving East 
on 1-70 just out of Columbus with my wife and 
saw a similar truck. I said “Hey, TECO!” and my 
wife just stared at me and said “Huh?”. Some 
people just don’t understand. 

I really enjoyed your show at San Diego, but I 
thought you had said that your long awaited 
“How' to build a well structured disk” article was 
to appear in the December issue. I guess things 
get a bit blurry after midnight. 

Bob Ainsley 
National Revenue Corp. 

Columbus, OH 

Blurried and Hurried, Boh. See "Disk Struc¬ 
ture Notes", this issue. 

Dear RSTS Professional: 

Below is a caption I feel suitable: 

“Small Buffers?? ^ Oh, I’ve got 2 of those.” 

Sincerely, Kim Branch 
Daniel International Corp. 


Gentlemen: 

Your current photo (p. 19) is of Stonehenge. 
Many believe that this is indeed a computer, 
used to calculate astronomical data such as the 
date of the equinox which was of great impor¬ 
tance to prehistoric farmers and hunters. I 
expect it was reliable, or at least minimal 
downtime! 

Everyone involved with timesharing at our 
installation really enjoys your magazine; keep up 
the good work. 

Donald E. East 
First International Services Corp. 

Dear RSTS Pro: 

In reference to the photo contest (p. 19), Some 
people think that it was a start. Actually the 
object in the photo is called a Dolmen. A group 
of these placed in a circle is called a Cromlech. 
The most famous Cromlech is Stonehedge. It is 
believed to have been built around 2000 B.C. and 
seems to have been a kind of astronomical 
observatory. How’s that!!!!!!! 

Sincerely, Joseph M. Nyikos 
Union-Tribune Publishing Co. 
THAT was just great!!!!!!! 

Here's someone who has included a little some¬ 
thing for everyone. 

Gentlemen . . . 

Page 19 Yes. Stonehenge. 

Page 83 - “Hey you guys . . . give me a break 
will you.” 

Page 91 Bill Shakespere at Stratford upon 
Avon. 

Please remind Users that during a single user 
Sysgen one should allocate all except 2 job slots 
to XBUF. (Free available memory that was.) 

How does one reset the statistics withot the 
switch register - i.e., after RDC have nicked it? 

Bye Y for now 
Peter Dick 
Silver Programs, London 
OK, Peter, you get a T-shirt for at least one of the 
above. 


Send letters to: Letter to the RSTS Pro, P.O. Box 
361, Fort Washington, PA 19034. 


LOOK 

at the "tear-out” cards in this issue. 

There’s a "HOT to COLD" form for 
rating our articles. Let us know what 
is most and least interesting to you. 


There’s a FREE gift for you. Bring in 
new subscribers and collect rewards. 
See ’’BOUNTY HUNTERS" card. 


RSTS Professional 


Rate Increase 


Effective May 1. 1981 


U.S. {3rd Class) . 

*25 

Canada & US. (1st Class) . 

*35 

Foreign (Air Mail) . 

*40 


























































Only System Designed Just for PDP-11 Family 

Designed exclusively for DEC'S GNIBGS or MASSBGS 
CPG’s. On the GMIBGS, it’s just one card that plugs into 
any spare SPC slot. On the MASSBGS, four cards plug 
into any spare existing RH70 standard back plane. 

Same Disk Drive as DEC RM02-03, RP06 and 
RM04-05 

We use the same disk manufacturers as does DEC. The 
RM02-03 is the 9762 CDC 80MB and the new RM04-05 
300MB is the CDC 9766. Only the LOGO Is different. 

Transparent to All DEC Software, Diagnostics and 
Drivers 

You bet! Gse your existing Software. . . no change 
needed. Runs all DECs Diagnostics plus has its own. 
Fully emulates DEC disk Drivers. 

Worldwide Installation and Maintenance 
Through Data Systems Services, maintenance and 
installation is provided via CDC for both Drive and 
Controller. We also offer full PDP-11 system support. 
Full Media Compatible? 

That’s right! You can read or write on our drives. Put it 
on DEC’S and it will play or vice versa. TRGLY MEDIA 
COMPATIBLE. 


OEM Discounts Available 


DRM02-3 80MB Slave 
DRJM02 80MB-*-Controller 
DRWM03 80MB ■*- Controller 
DRJM04-5 300MB Slave 
DRJM04 300MB -*- Controller 
DRWM05 300MB -♦- Controller 
RJM07 600MB + Controller 
RWM07 600MB-*-Controller 
RM07 600MB Slave 


DRP06 200MB Slave 

DRWP06 200MB-*-Controller 

DTa45 

DTU77 

DTai25 

Line Printers 

Memories 

11/34 -►11/70, VAX 
Systems 



ATA 
YSTEMS 
ERVICES 

(714)770-8024 


23901 Remme Ridge 
El Toro, CA 92630 


POP and DEC are registered trademarks of Digital Equipment Corporation 
















New, from the 
makers of DMAX/16'“ 

Super 
Max 

The single-board, 

16 -line ABLE DH/DM " 
that enhances 
any UNIBUS 
system with 
DH-performance 
at DZ-prices. 

Two years ago, we broke new ground with our 
DMAX/16'", the original alternative to the DEC 
DHll. DMAX cut the space requirements from 
nine slots to three and became an immediate 
worldwide success. Now we’ve come up 
with something even better. This time it’s 
ABLE DH/DM ”, an alternative that 
achieves the optimum cluster size —16 
lines with modem control on a single 
board. You can compare price, or you can 
compare throughput. Either way, ABLE DH/DM” 
beats everything in its class. No one else comes close. 

The ABLE DH/DM” is today’s answer to VAX 
system needs for DMA communications multi¬ 
plexing and serves all standard UNIBUS systems 
equally well. Each 16-line ABLE DH/DM ” installs 
in any standard hex-width slot at only one unit bus 
load and is DHll compatible to the diagnostic level. 
Just plug it in and see it run - up to 19.2K baud 
using only half the UNIBUS bandwidth of a 
DEC DHll. 

Key ABLE DH/DM ” features include on-board 
diagnostics with LED display, modem control on 

all lines, improved 
on-board silo depth 
and variable 
PROM set for 
proprietary OEM 
applications. 

Keep up with 


ABLE and optimize your VAX, PDP-11 or System 20. 
Write or call today for details on our full line of 
UNIBUS-compatible special-memory, general- 
purpose and data-communications products. 


the computer experts 

ABLE COMPUTER, 1751 Langley Avenue, Irvine, 

California 92714. (714) 979-7030. TWX 910-595-1729 ACT IRIN. 

ABLE COMPUTER-EUROPE, 74/76 Northbrook Street, 
Newbury, Berkshire, England RG13 lAE. (0635) 32125. 

TELEX 848507 HJULPHG. 








The Whole Truth 
About PDPTl Word Proeessing. 



HYPHENATION 


PROPORTIONAL 

SPACING 


INDEXING 


USER 

DEFINED KEYS 


SPELLING ERROR 
DETECTION 


TABLE OF 
CONTENTS 


FOOTNOTING 


LIST 

PROCESSING 


When you explore word processing systems, 
you’ll find a number of systems that offer part of 
the package. And frankly, if you’re only looking 
for text editing, almost any system will do. 

But if you’re looking for full word processing 
capabilities, you should insist on a system that can 
handle all of the tough tasks you’ll encounter. 

For starters, a good system will have list pro¬ 
cessing, the vital function that generates corres¬ 
pondence, reports, even statistical analyses. It 
should have user defined keys to simplify repetitive 
operations. 

And a good system can handle the details. Like 
spelling error detection, automatic renumbering 
of foomotes, tables of contents and indexes. And 
proportional spacing and hyphenation for profes¬ 


sional looking documents. 

A good system can be shared. It should be able 
to support up to fifty terminals. And it must be 
backed up by successful installations and a strong 
service team. 

After you’ve examined the options, we think 
you’ll select WORD-11, the only system with all 
the sophisticated features you could want. 

For the details, please call Data Processing 
Design Inc., Corporate Office; 181 W. Orange- 
thorpe Ave., Suite F, Placentia, CA 92670. (714) 
993-4160. Telex 182-278. New York Office: 420 
Lexington, Suite 647, New York, NY 10170. 
(212)687-0104. 

I>ata Processing Design, Inc. 

...SDSDQSD.,..,,,,.:..,..... 



Overseas Distributors: Management Information Services PTY. LTD. Jenson LTD. SystimeLTD. Net^vork Computer Services PTY. LTD. 

Melbourne, Australia Bristol, England Leeds, England Sydney, Australia 



